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* HOME ACCOUNTS — 
ANNUAL BUDGETS 


* ELEVASION GAME 


* INDEXING CASSETTE 
PROGRAMS 


* MOVING TEXT DISPLAY 
* APRIL FOOL 
* And much more 


JM MEMBERSHIP EXCEEDS 25,000 — ~ 


THIS MONTH'S MAGAZINE 


We are particularly pleased to include this month, a highly flexible and easy to 
use program for home accounting. This one allows you to analyse and plan your own 
home budget over a period of twelve months. It has been our intention for some time 
now to provide programs and articles that look at some of the more useful and 
helpful applications of the home micro, and this program is a Significant step in 
that direction. We shall be looking at other applications for future issues and 
would welcome both your comments and suggestions on this. 


This issue of the magazine appears very close to April Fools Day. We have managed 
to restrain ourselves and resist the temptation to play any jokes on you, the 
reader. But we have included a little routine that will enable you to have a some 
fun at the expense of your friends! | 


SECOND ANNIVERSARY ISSUE 

Next month it will be two years since the founding of BEEBUG, and both we and the 
nicro we support have come a long way in that time. To mark this second anniversary, 
we shall be giving away with every copy of the May issue (to members only) a £1 
voucher which can be used in part payment for any BEEBUG or BEEBUGSOFT item (though 
not membership subscriptions or back issues). We shall also be including an 
additional machine code action game on the magazine cassette. 


In the magazine itself, we shall be starting two new series for our third volume. 
One of these will be in the form of a Programmers' Workshop, which each month will 
present and explain a useful technique or procedure. The second will be a new series 
of articles aimed specially at the many hundreds of new members that are continuing 
to join BEEBUG. In both cases we would welcome any ideas, suggestions, requests and 
contributions. Іп this way we hope to provide an even better magazine that will 
cater alike for the new and the experienced user of the BBC micro. 


We shall also be incuding with the next issue, a full index to the whole of 
Volume 2. This will be a separate insert so that you may readily include it in the 
binder with all your issues of Volume 2. 


HINT WINNERS 
This month's hint winners are W.G.R.Bain who wins the £19 prize, and R.Skemp who 
wins the £5 prize. We still need all your good hints and tips for the magazine. 


MAGAZINE CASSETTE 

This month, -the magazine cassette contains the full versions of the Home 
Accounting (Annual Budgets) program and the Elevasion game. These include additional 
on-screen help and information. We have also included two 4-tone Mode 7 screen dumps 
for the Epson FX80 and MX8@ printers. These are ideal for Teletext and Prestel 
Screen displays and unlike some dumps, utilize the full paper width on 80 column 
printers. 
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аза” COLOURFUL 3D BAR CHARTS(32K) 
by J. Abboud | 


It is often much easier to understand data that is presented іп а 
visual format rather than as columns of figures. The BBC micro, with 
its excellent graphics, is ideally suited to this task and here 
these capabilities are exploited to the full by the program 3DHIST 
to display 3D histograms or bar charts on the screen with three 


alternative styles of presentation. 


A bar chart or histogram is a simple 
way of displaying statistical data in 
the form of bars or columns. For 
example, a company might wish to 
display sales figures for each month 


throughout а year. This could be. 


extended by breaking sales down into 
Say six major types of product and then 
drawing Separate Бак charts or 
histograms for each. To make 
comparisons easier, we can then place 
all six together forming а 3D 
histogram. This is what the program 
here is designed to do. 


The program itself could be used аз 
a display routine in a larger program, 
or as it stands, possibly modified to 
allow keyboard entry of data. Тһе 
version presented here is designed to 
illustrate three different ways of 
constructing such 3D histograms using 
data that is contained in DATA 
statements within the program. Тһе 
program can be easily modified to suit 
your own particular needs. As written, 
it provides up to six levels of 
histogram each coloured differently, 
and with up to 12 data fields in each 
histogram. The program cycles through 
the three different forms of histogram, 
each plotted with a different ordering 
technique. In each case, pressing the 
space bar causes the program to cycle 
on to the next form of display. 


The first histogram displays the raw 
data without any kind of ordering. The 
resulting display may not be very clear 
as some of the background levels may be 
wholly or partially obscured by those 
in the foreground. Тһе advantage is 
that the histograms аке displayed іп 
the order determined by the user (for 
example, histograms for a series of 
consecutive years in year order). 
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The second form of display orders 
the individual histograms by their 
average value or height. This will 
normally result іп the higher 
histograms being placed at the back 
ranging down to the smallest at the 
front. This ordering is based on 
average values and thus individual 
fields may still be obscured by others 
nearer the front. This ordering may 
itself provide useful information. For 
example, monthly production figures for 
each of six years would be ordered. so 
that the the year with the highest 
total production was at the rear 
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ranging down progressively to the year 
with the lowest annual production at 
the front. 


In the third form of display, the 


columns for each individual field are 
now ordered from back to front. This 
tends to make it more difficult to 
compare whole histograms but does allow 
trends to be more strongly highlighted. 
For example, if production rose 
strongly from a low point at the start 
of a year to a very high level at the 
end of the year, this would be clearly 
indicated by this form of presentation. 
If required, the display will then 
cycle back to the first form of 
presentation again. 


In all three cases, the histograms 
are displayed in a 3D perspective 
format, with vertical and horizontal 
scales and a colour key to identify 
each individual histogram. Just running 
the program and using the space bar to 
change the display will show you the 
excellent results that can be obtained. 
The three types of presentation are 
also illustrated in the screen shots 
that accompany this article. 


PROGRAM NOTES 

The program is well structured 
enabling you to make changes and 
modifications to suit your own needs. 
You can select the number of fields and 
levels by setting the values of 1еуе1% 
and field% іп the procedure PROCinit. 
Unless you use flashing colours or 
clever shading techniques, the number 
of levels is limited to six, the number 
of available colours. The number of 
fields is limited more by screen space 
and clarity but the arrays dimensioned 
at line 120 cater for a maximum of 12. 
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On the display, the 'X' axis is 
labelled with user defined characters 
(to get a small text size in mode 2). 
These are stored in the string FS, but 
could be changed for other characters 
such as the initial letters of the 
months of the year. The vertical scale 
of the graph is determined 
automatically by the values of highY$ 
and lowY3, the highest and lowest 
points on the scale, which is divided 
into nine steps or increments. Both 
vertcal and horizontal scales are set 
up by PROCscale. 


The data for the displays (six sets 
of twelve data items) is read into an 
array by PROCdata. The data is not 
scaled to the vertical scale shown on 
the screen display. Instead, a data 
value of 450 corresponds to the highest 
point on the vertical scale, anda 
value of @ corresponds to the lowest. 
If you wanted to use other data and 
scale it for presentation then the 
following formula will do this for you: 


Y= (450/ (highY%—LowY$%) ) * (X-lLowY%) 


where X is any given data item in the 
range from lowY% to highY% and Y is the 
calculated height for plotting іп the 
program. Negative values will be 
plotted, though their appearance will 
be a little odd as the program was not 
designed to cope with such values. 


In the program the type of display 
is selected by the value of the 
variable sort$ (0, lor 2). If sort%=1 
then the data is reordered using 
PROCsort, while if sort%=2 then the 
data is reordered Бу  PROCsortl. One 
useful technique to note here is the 
use of the pointer array P$(6). All 
references to the data stored in the 
array B are made via this pointer 
array. Whenever the data is reordered, 
it is only the pointers that are 
shuffled around and never the data 
itself. This is much faster, as much 
less data has to be moved, and it also 
rather neatly enables the program to 
keep the right colour with the right 
field or level. This is a technique 
which сап be very useful whenever the 
need arises to reorder large quantities 
of data and is standard computing 
practice. 
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1010 level$-6:fiel3$2-12:10wY$-10:highY 
$-100:sort$-0 

1020 C$(1)24:C$ (2) 21:C$ (3) 5:C2$ (4) 22:C 
$ (5) =6:С% (6) =3 

1030 ENDPROC 

1040 : 

1050 DEF PROCchars 

1060 LOCAL AS,1%,J% 

1070 FORI$-224TO235 

1080 VDU23,I$,0,0: READAS 

1090 FORJ%=1TO11STEP2 

1100 VDU EVAL ("&"4+MIDS (AS,J%, 2) ) 

1118 NEXT 2%,1% 

1120 Ур023,236,60,66,153,145,145,153,6 
6,60 | 

ТЕЗИ VDU 23,237,@,255,255,255,255,255, 
255,255 


1140 BS=CHRS10+STRINGS (18,CHR$8) _ 
ООЗ АОН 1150 FS="":FOR 1%-1 TO field$:FS=F$+CH 
20 REM Version В1.0 RS(223+1%) :NEXT I$ 
30 REM Author J.Abboud и j 


1160 ENDPROC 
1178 DATA206020202000 
1180 DATA7010790407000 


40 REM BEEBUG April 1984 
50 REM Program subject to copyright 


100 MODE 2:VDU23,1,0;0;0;0; 1... 
110 ON ERROR GOTO 350 реа 
120 DIM B(6,12) ,C (6) ,LS (6) ,P$(6) sum 1210 DATA704070107000 
8 (6) жағаны ы: жый. 1220 DATA7040705070900 
. E | 1230 DATA7019190101000 
2... 1240 DATA705070507000 
150 Х%-250:Ү%-200:Х1-0:Ү1-450:АМС-0.5 2... 
:D=50*ANG: P-D:F$-250:L2-200 
: 1270 DATA48D848484800 
168 CLS:PROCgrid:PROCscale 1280 ПАТА5СС45С505С00 
170 IF sort$-0 THEN FOR І%-1 TO level 
du tee 160 € PROCdata 
180 IF sort$-2 THEN 249 ` ы да 
= 1310 LOCAL A$,I$,L$,F$ 
190 IF sort$-1 PROCsort + 
200 FOR J%=1 TO level% 1320 FOR 1%=1 TO 6 
т : : $)- 5 
210 VDU 29,F$;L$;:PROCdisplay(C$ (P$ (J 42. А$:18 (1%) SLEFTS (AS, 5) 
%))) E 
opo rud. d 1350 FOR L$-1 ТО level% 
ze .. 1360 FOR F$-1 TO Field’ 
ome i 1370 READ B(L$,F$) 
240 FOR J%=field% TO 1 STEP-1 1380 NEXT F L3 
250 F$2250:L$-200: PROCdisplayl (2%) 1390 ENPERO Е 
260 МЕХТ | 
1400 DATA TEMP, RAIN, PRESS, SUN,MIN, MAX 
270 VDU 4:PRINT TAB(15,23);"Level" 1419 REM (1) (2) (5) (4) (5) і (6). 
280 FOR I$-1 TO level$ 1420 REM 
«230, сопот ста) иет DEAD 1430 Dy 235,250,288, 190, 130, 11 
' 300 NEXT: VDU23 1.0:0:0:0: кз БА) 1440 DATA 180,190,200,150,130,110 
318 Sortie (sort&t1)MOD3:2$-GET 1450 DATA 400,360,315,330,270,200 
320 UNTIL FALSE Би 1460 DATA 190,180,200,290,260,250 
348 : 1480 DATA 15@,20@,13@,12@,1@@,09@ 
: : 1490 DATA 470,450,440,420,340,305 
ed m Er n HE at 1500 DATA 370,350,298,230,230,210 
AN : 1510 DATA 100,090,100,140,120,070 
oo 1520 DATA 120,100,050,150,160,230 
339 : 21530 DATA 170,180,200,210,180,160 
1000 DEF PROCinit 1540 DATA 168,150,099, 030,030,820 


1550 
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1560 DEF PROCgrid 1928 MOVE H,K%:MOVE H, (К$+Ј) :PLOT 85, ( 


1570 FOR 1%=1 TO 10 Н-50),(К%-0%25) :MOVE (H+75) , (K$*J-5) : PL 
1580 VDU 29,X2$;Y$;:MOVE 0,0:GCOL0,7 OT 85,H,K$:MOVE (H+75) ,(K%—-5) :PLOT 85, ( 
1590 FOR X-0 ТО field3*5@ STEP 20 Н“75),(К%-2-5):МОУЕ (Н%75),(К%-5) :MOVE 
1600 Y=ANG*X:DRAW X,Y (H+25) , (K-38) : PLOT 85,H,K$:GCOL 0,0 
1612 NEXT: YZ=YS+50 1930 DRAW H,K$4J:DRAW H+50,K%+J+25:DRA 
1620 NEXT М H+75,K%+J3-5:DRAW H+25,K%+J-39:DRAW H, 
1630 VDU 29,Х%;200; :MOVE 0,0 $4J:MOVE H+75,K%+J—5:DRAW H+75,K%-5:DR 
1640 FOR I%=1 TO Ғіе1а%+1 AW H*25,K$-30:DRAW H+25,K%+J-30:MOVE Н, 
1650 DRAW X1,Y12X1=X1+5@0:Y1=Y1+P:MOVE %: DRAW H+25,K%—30: ENDPROC 
Xl,D:D-D4P — ^ 1940 : 
1660 NEXT: ENDPROC 1950 DEF PROCSortl:LOCALIIS$,JJ$ 
1670 : 1960 FOR II%=1 TO (1еуе1%-1) 
1680 DEF PROCscale 1970 FOR JJ$-1 TO (1еуе1%-І1%) 
1690 step£- (highY$-lowY$2)/9:y$-l0wY$ 1988 IF B(P$(JJ2) ,J$) XB(P$ (JJ$4*1) ,2%) 
1700 GCOLY,7:VDU 5 PROCswap(JJ$) 
1712 MOVE -30,-10:DRAW -30,440 1990 NEXT JJ$,II$:ENDPROC 
1720 FOR І%--10 ТО 440 STEP 50 2000 : 
1730 MOVE-45,I$:DRAW-30,I$:MOVE-240,1$ 2010 DEF PROCsort:LOCAL І1%,КК% 
1740 PRINT;y$:y$-y$tstep$ 2020 FOR КК%-1 TO level$ 
1750 NEXT 2030 sum% (KK%) =FNsum (KK3) 
1760 FOR 1%=50 TO (field%)*5@ STEP 50 2040 NEXT KKZ 
1770 Y%=ANG* (15-50) sMOVE 1%-55,Ү%%512: 2050 FOR KK%=1 TO 1еуе1%-1 
PRINT MIDS (FS, (I2) /50,1) 2060 FOR 11%=1 TO 1еуе1%-КК% 
1780 NEXT: ENDPROC 2070 IF sum% (P$ (II2))«sum$ (P$ (IIS+1) ), 
1790 : THEN PROCswap (ІІ$) 
1800 DEF PROCdisplayl (1) :PROCsortl 2080 NEXT ІІ%,КК% 
1810 FOR І%-1 TO level% 2090 ENDPROC 
1820 VDU 29,F%;L%; :PROChistogram( (L-1) 2100 : 
*50,B(P$ (I$) ,L) ,C$ (P$ (I$) ) ) :Е%=Е%+25:15 2110 DEF FNsum(U%) :LOCAL sum 
-L2-30 2120 sum=9 | 
1830 NEXT: ENDPROC 2130 FOR Т%-1 TO Ғіе14% 
1840 : 2140 sum=sum+B (P$ (US) , TS) 
1850 DEF PROCdisplay (L) 2150 NEXT 
1860 FOR I$-field$ TO 1 5ТЕР-1 2160 =sum 
1870 PROChistogram( (13-1) *50,В(Р% (7%), 2170 : 
I$) ,L) 2180 DEF PROCswap(U$):LOCAL temp 
1880 NEXT: ENDPROC 2192 temp=P% (0%) : PS (US) =P% (US+1) : PS (US 
1890 : +1) =temp 
1900 DEF PROChistogram(H,J,C) 2200 ENDPROC 
1910 MOVE 0,0:K$-ANG*H:GCOLO,C =] 


INTERRUPT DRIVEN SPEECH - W.G.R.Bain 

The following ammendments to the interrupt program at the end of the article on 
interrupt programming in BEEBUG Vol.2 No.6, will make the Acorn speech synthesiser 
pronounce figures and upper case letters when you type them on the keyboard. Lower 
case characters and other symbols will produce various words including some Basic 
Keywords: 


70 DATA &FF,&FF,0,0,0,0,0,0 1190 STA &72 
1171 STA &72 1194 .control 
1172 CMP #13 | 1195 СМР #32 
1173 BNE control 1196 BMI exit 
1174 .return 1240 .exit 


1188 LDA #114 
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ACORN’S TELETEXT AD 


Reviewed by Mike Williams 


This month we look in some detail at Acorn's Teletext Adaptor, which 


at long last is now available, and in fact being strongly advertised 


in many computer magazines. 


also look at the BBC's plans to 


support the use of this unit and reveal some of the developments 
that are likely to take place in the future. 


Product sAcorn's Teletext Adaptor 

Price :£225 inc. VAT. 

Supplier:Vector Marketing, Dennington 
Estate, Wellingborough, 
Northants NN8 2RL. 


The Teletext adaptor consists of a 
box half the size of the Beeb, which 
sits alongside it, and is connected to 
it by a 34-way ribbon cable to the 
micro's 1 MHz bus. There is also the 
Teletext Filing System (TFS) which 
comes aS an EPROM to be fitted into a 
vacant sideways ROM socket. For anyone 
not sure of fitting the TFS EPROM, a 
voucher is supplied which can Бе taken 
(or sent) with the micro to any Acorn 
Service Centre, who will fit the TFS 
and also ап 0.5.1.2 ROM if necessary 
(and it is essential) free of charge. 
The unit is self powered and а 
comprehensive manual and Function Key 
label are also supplied. 


SETTING UP 

Once the Teletext File system is 
installed, and the ribbon cable plugged 
into the 1МН2 bus, a TV aerial needs to 
be, connected into the coaxial socket at 
the back of the Teletext adaptor, and 
the unit then switched on. Switching on 
the BBC micro gives 'Acorn TFS' as the 
current filling system. There is no 
visual indication of when the adaptor 
is switched on and its own power on/off 
switch is not very clearly marked. 
However, when you switch on the micro 
or select the Teletext Filing System 
(TFS) this checks the adaptor and 
displays the message ‘Acorn TFS no 
power' if the unit is not powered up. 
One important point to note is that 
with TES installed PAGE will 


automatically be set to &2400 on a disc 
system, or 81900 for cassette, even 
when the Teletext adaptor itself is not 
Switched on. This means that you have 
nearly 3K less memory for your own 
programs, though this can be recovered 
when TES is not being used. 
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Once everything is connected and 
Switched on, the first step is to tune 
the adaptor to the signals required. 
There are four separate channels marked 
1, 2, 3, and 4 and it is desirable to 
tune these to BBC] BBC2, ITVI апа ITV2 
respectively. They can be tuned ina 
different arrangement but you аге then 
likely to find later that, for example, 
selecting BBCI] from the keyboard will 
give ITVl or | something equally 
confusing. 


TUNING 

Typing  *TELETEXT effectively turns 
your micro into a versatile Teletext 
receiver. All the features of this are 
controlled from the red function keys 
and also the cursor keys as we will see 
later. Pressing f4 allows a channel to 
be selected (Channel | to start with) 
and then pressing Shift/f4 gives а 
tuning scale for Channel 1. By slowly 
turning the red tuning wheel for 
Channel 1, I managed to find BBCI, 
after a little trouble, and the message 
'Receiving Teletext' was displayed. At 
the same time a thermometer type signal 
Strength scale appeared on the screen 
and the channel was fine tuned to give 
100% on the scale. In practice the 
unit achieves 100% deflection very 
quickly but this does not guarantee 
that uncorrupted Teletext сап be 
received, as the unit is very critical 
of the input signal. I found that I 
needed to fine tune my unit three times 
before I could get reliable reception. 
However, I did also manage to achieve 
reasonable reception with the simple 
loop aerial of the portable black and 
white TV I use quite often at home. 


TELETEXT SERVICE 

After tuning Channel 1, you proceed 
to tune the other three channels to 
BBC2, ITV] and ITV2 respectively. You 
can then proceed to examine the 
Teletext pages on each service. First 
select the channel with f4 and then the 
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Ceefax News Headlines. 


required page with fø followed by the 


page number. As soon as that page is 
received you will see it displayed on 
the screen. The Teletext service 
provided by Ceefax and Oracle gives 
access to approximately 100 or more 
pages оп each channel. These are 
numbered and broadcast in sequence so 
you normally have to wait until the 
page you have selected arrives. 


The adaptor works in a very 
sophisticated manner and is an 
impressive performer with many features 
not found on normal Teletext receivers. 
The unit can 'Keep' pages in memory, up 
to 16 different ones at a time, and 
these are instantly available when 
called, instead of waiting for the 
cycle to come round again. In addition, 
these pages are constantly updated in 
memory. The unit can 'Save' pages to 
the Disc or Tape filing system so that 
they can be recalled at a later date. 
One point to note here is that a page 
is saved with its load address as given 
by its location in memory, not the 
screen address of 87С00. 


Typical Ceefax Page. 
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Telesoftware Main Index. ККЕ 


! about April/May. 


subsequently *LOAD a page you will see 
nothing displayed unless you specify 
the load address as &7C00 or change the 
saved load address to this value. 


PAGE LINKING 


The Teletext adaptor will provide a 
full Teletext service with one major 
exception, and that is the ability to 
superimpose a Teletext page over the 


top of a normal ТУ picture. То 
compensate there are some extra 
facilities including the ability to 
handle 'linked' pages. This is still 


experimental but those of you with 
Teletext adaptors can try it out now. 
In principle any Ceefax page has the 
facility to be linked with other pages. 
For example, a page of headlines may 
have links to several other pages апа 
each of these in turn may be linked to 
a set of more detailed news pages. Once 


WAS EUR 


you have selected a Teletext page, апу 
linked pages are loaded automatically 
and you can then follow the links by 
using the cursor keys to go up, down, 
left and right from the current page, 
giving much faster access than by 
conventional page selection. If you 
start with the Ceefax index on page 100 
you can experiment with this new 


development right now. 


DOWNLOADING PROGRAMS 

The Teletext adaptor has a second 
mode of operation called Telesoft mode. 
In this mode, you can download programs 


from the BBC's Ceefax service to your 


micro. At present, up to 150K of 
software is available, changed 
fortnightly, though the overall 


capacity of Ceefax transmissions is 
scheduled to be increased by 50% from 
These programs are 
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transmitted on pages 700 to 710 and are 


easily loaded using an Acorn downloader 
program found on page 704. You can also 
use this mode of operation to write 


55205 ФӘСНЫ: 3 
ОЕ THARE DOUR DADER” 22710. B 


Typical Telesoftware Page 


your own programs 
broadcast Teletext pages on all four 
channels. The programs transmitted so 
far have been mostly educational and 
are written to а high standard, 
although it has to be said that several 
of these programs in the past have not 
worked at the first transmission and 
have had to be modified during the 
fortnight that the programs were 


current. 


IN THE PIPELINE 

The BBC regard the  Telesoftware 
service as part of an integrated system 
and will increasingly link the 
transmission of computer programs with 
the broadcasting of TV programmes. One 
example here is а new television 
series, presented by Ian McNaught-Davis 
and John Coll, called Computers in 
Control', which is all about robotics. 
The five programmes in the series will 
be shown on BBCl at 12.30 оп Fridays 
Starting on 2nd March, with a repeat 
showing late on the following Thursday. 


Other TV series will also be linked 
with the Telesoftware service and as a 


to access the 


result some of the programs available 


will be changed every week instead of 
every fortnight as has been the case up 
to now. Future plans for  Telesoftware 
also include the transmission of data 
files for interrogation by your micro 
as part of a widening information 
service. You'll be able to find out 
when all those interesting TV 
programmes оп computers аге being 
transmitted, even if you can't buy a 
copy of the Radio Times! 


VALUE 

Value for money? So far it is 
difficult to claim that it is good 
value for money. At £225 it is clearly 
overpriced, though it 15 technically 
advanced and there are no further costs 
involved in its use unlike Prestel. 
Tuning the unit is VERY sensitive as 
the red tuning wheels require only the 
most minute movement to go from ON tune 
to OFF tune and this can be very 
frustrating. The downloading of 
programs is exceptional and it is to be 
hoped that the high standard of 
programs broadcast, will be maintained. 


If you have a TV and want access to 
Ceefax and Oracle then this is one very 
sophisticatéd мау of achieving this 
with the added bonus of free 
Telesoftware. On the other hand, the 
home user is likely to find the 
Telesoftware service insufficient оп 
its own to justify the £225 price tag. 
Despite these comments the BBC reckon 
that half the Teletext adaptors sold so 
far have gone to home users and the 
BBC's future developments in 
Telesoftware are something that I for 
one will certainly be watching with 
keen interest. 


[I am most grateful for additional 
information and comments provided by 
Trevor Baker, and by Colin & Sue Cohen 
to whom many thanks. ] 


EASY ROM SELECTION - C.T.Marshall 


It is possible to wire a zero insertion force socket to the keboan via ribbon 
cable from one of the internal ROM sockets, allowing easy replacement of ROMs from 
the vast amount of ROM software currently available. 

[Note: Keep the ribbon cable short, otherwise extra buffering may be required for 


this socket. ] 
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5а" OME ACCOUNTS – ANNUAL BUDGETS(32K) 
by David Reed 


Many home computers are for games playing but there are more 


useful applications for your micro. Helping to look after your money 
is one of these and although David Reed's program won't actually 
stop you going into the red it will help you to examine your monthly 
income and expenditure over a year and see where the money goes. 


The program listed with this article 
really is designed to be easy to use. 
All the information that you need to 
supply is entered and modified directly 
on the screen so that you can see 
exactly what is happening. The monthly 
summaries of income and expenditure are 
quickly displayed and simple to follow. 
Working equally with disc or cassette 
systems, this is an extremely versatile 
and useful applications program. 


You can use this program to enter 
all your major monthly incomings and 
outgoings over a period of a year, апа 
examine your financial position month 
by month. You can start by entering 
your anticipated income and expenditure 
for each month, then save these to 
cassette or disc. As 


and received and update your forecasts. 
Although the program will handle sums 
to the nearest penny, its main purpose 
is to represent your present and future 
finances in round terms. 


When you first run the program you 
will need to enter the current day's 
date so that your latest balance sheet 


can Бе dated. Any format will be 
accepted (or just Return for an undated 
entry) within the limit of 10 


characters. 


гу 


Tabulation of Credits & Debits. 
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the months pass 
you can enter the actual amounts spent . 


You then move on to the 


Main Program Menu. 
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cursor keys left or 


program's main menu. The options 
available are described in the 
following paragraphs. 
CREDIT AND DEBIT HEADINGS 

When you run the program for the 


first time all the credit and debit 
headings are so labelled. You can 
change and delete these as you wish. 
For example, you might wish to change 
the first credit heading to 'Salary', 
delete the remaining credit entries (by 
entering a blank string for each опе) 
and then change some of the debit 
headings to 'Mortgage', 'Rates', 
'Food', 'Petrol', etc, as you wish. Use 
the up and down cursor keys to 
select the heading, and Tab and Return 
to start and finish any text entered. 
These headings will be saved with your 
data and can always be returned to and 
changed at any time. 


DATA ENTRY 

When you select the screen for data 
entry, your credit and debit headings 
will be displayed down the left hand 
side of the screen with the months 
across the top. The four cursor keys 
can be used to select the month and a 
credit or debit entry. The screen shows 
entries for four months at a time апа 
these are changed by just moving the 
right. Again Tab 
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12 


and Return are used to mark the start . 


and finish of any amount entered. You 
can also use the Copy key to copy any 
amount immediately to the left of the 
current position (apart from January) 
and the Delete key will remove the 
amount іп the current position, giving 
great flexibility. 


TABULATION OF CREDITS AND DEBITS 

At any stage you can tabulate all 
credits and debits on a month-by-month 
basis with the end of the month balance 
carried forward to the next month. 
Again four months are shown at a time, 
cycling through each following group of 
four months by pressing the Space Bar. 
This is the most detailed presentation 
of your finances. | 


SUMMARY TABLE 

This summarises your annual budget 
by displaying end of the month balances 
throughout the year and the total 
amount for each of your credit апа 
debit headings. 


Summary Table. _ = "m 


SAVING AND LOADING DATA 

Once entered, all your data 
including your own credit and debit 
headings can be saved іп а file on 
cassette or disc. You simply enter the 
filename when prompted. Data once saved 
can always be loaded back into your 
micro at a later date for further 
modifications and display. 


* COMMANDS 

This menu option allows any usual * 
command to be entered and acted upon 
without leaving the program, а very 
useful feature, particularly for disc 


users. 
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The version of the program on the 
magazine cassette also contains an 
on-screen guide to all the menu options 
for quick referance. The guide is 
omitted from the printed version to 
keep the program to а reasonable 
length. 


PROGRAM NOTES 


There are two particular areas of 
the program that you can tailor to your 
own needs. These are lines 2100 and 
2120, both in the initialisation 
procedure PROCinit. Line 2100 sets up 
FZ and B%, and these are used as the 


foreground and background colours 
respectively when the program is 
running. If the colour combination 


already given (i.e. yellow on blue) is 
not to your liking, then all you have 
to do is to alter these two values. The 
second area for adjustment, at line 
2128, is for you to alter the number of 
debit and credit entries. This is done 
by specifying two things: the total 
number of entries (i.e. the number of 
debit plus the number of credit 
entries) and the point at which the 
split from credit to debit is to be 
made. SPLIT% gives the number of the 
first debit entry, апа NUM% (not the 
array NUM$, just the single variable) 
gives the total number of entries. 


Note also that when saving and 
loading to and from tape, the program 
provides only limited prompts. This 15 
to keep the size of the program to a 
minimum. 

10 REM Program DOMESTIC ACCOUNTS 

20 REM Authors David Reed/David Fell 

30 REM VERSION В1.9М 

40 REM BEEBUG APRIL 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT. 


60 3 

100 ON ERROR PROCerrorl!:END 

110 MODE4: PROCinit: PROCtitle 

12@ ON ERROR PROCerror2:IF ES END 

130 MODE4: PROCcolours: PROCcolour (1) 

140 PROCcntr ("SELECT ROUTINE LETTER:" 
73) 

150 PROCcolour (2) :RESTORE 4070 

160 FORI%=1TO8:READ AS 

170 PRINTTAB (10, 2*1%+9) ;CHRS (64+13%) ;" 
) ";A$ 

180 NEXT: PROCcolour (2) 

190 R=GET AND &DF 

200 IF R=65 CLEAR:R=@:DIM BCF%S(13):pa . 
ds="" = ": PROC1oad: PROCmonths 
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1480 IF Х%- 
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210 


IF R=66 PROCtitles 
220 IF R=67 PROCentervalues 

230 IF R=68 PROCtab 

240 ТЕ R=69 PROCsummary 

250 IF R-70 PROCsave 

260 IF R=71 PROCOS 

270 IF R-72 PROCquit 

280 *FX4 

290 GOTO 139 

1000 DEF PROCtitle 

1010 PROCcolour (1) 

1020 PROCspread ("Domestic Accounts.",6) 
1030 PROCcolour (2) 
1040 PROCcntr("Annual Budgets.",11) 
1050 PROCdate 
1060 PROCcntr ("Press SPACE to continue 
" 23) 

1070 REPEAT UNTIL GET-32:ENDPROC 
1080: 

1090 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL, 


AUG, vbi OCT ,NOV,DEC 


1109 

1119 DEF PROCcolour (X3) 

1120 IF Х%-2 COLOUR] :COLOURI 28 
1130 IF Х%-1 COLOUR@:COLOUR] 29 
1140 ENDPROC 

1150 : 

1160 DEF PROCcntr (А5,Р%) 

1170 PRINTTAB ( (49-LENAS) DIV2,P%) AS 
1188 ENDPROC 

1199 : 

1200 DEF PROCspread (AS$,P$) 

1210 LOCALI$,BS: :FORIZ-lTOLENAS 
1220 BS=BS+MIDS (AS, I3,1)+" “sNEXT 
1230 pRoCentr (BS, P$) : ENDPROC 

1240 : 

1250 DEF PROCentervalues 

1260 PROCcolour (1) 

12704 VDU28,0,31,7,90,12,10 

1280 LOCAL 2%, ,Y$:FORI$Z-1 ТОМОМ% 
1290 IF I%<>SPLIT% PRINTHDGS (I$); ELSE 
PRINT 'HDGS (1%); 

1300 NEXT:VDU28,8,31,39,0 

1310 X$-21:Y2-1:P$-1:LP$-P$ 

1320 PROCdisplayvalue:*FX4,l 

1330 REPEAT K$-GET 

1340 PROCdisplaysinglevalue 

1350 IF K%=13 UNTIL-1: ENDPROC 


1360 IF К%>135 AND К%<140 PROCmove (NUM% 5) 


1370 IF K%=135 PROCcopy 
1380 IF К%-9 PROCentervalue 
1390 IF K%=127 PROCZzero 


1400 IF ІІРФ<>Р% LPS=P% : PROCdisplayvalue 


1420 UNTILO 

1430 : 

1440 DEF PROCzero 

1450 NUM% (Ү$,Х$) 0: ENDPROC 
1460 : 

1470 DEF PROCcopy 

1 VDU7: ENDPROC 
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1490 МОМ%(Ү%,Х 

1500 PROCshowcell (М0М%(Ү%,Х%)) 

1510 ENDPROC 

1520 : 

1530 DEF FNpad (N$,T) 

1540 =RIGHTS (STRINGS (N2,CHR$32) +STRST, 
№) 

1550 : 

1560 DEF PROCmove (№) 

1570 IF К%-136 Х%-Х%-1 

1580 IF К%-137 Х%=Х%+1 

1590 IF К%-138 Ү%=Ү%+1 

1600 IF K%=139 Ү%-Ү%-1 

1610 IF X$- $212 ELSE IF X$-13 X$- 

1620 P$-((X$-1)AND12)-*1 

1630 IF Ү$=0 Ү%-М% ELSE IF Ү%-М%-1 Y$-1 
11640 ENDPROC 

1650 : 

1660 DEF PROCdisplayvalue 

1670 PROCcolour (2) CLS 

1680 PROCcolour (1) :FORI%=1T04 

1690 PRINTTAB ( (13-1) *8,9) : MONS (Р&+1%-1) 

1700 NEXT:PROCcolour (2) 

1710 FORI%=1 ТО4:ҒОВ2%-1ТОМОМФ% 

1720 IF P$4I2-1-X$ AND J$-Y$ PROCcolou 
r(1) ELSE PROCcolour (2) 

173@ PRINTTAB ( (13-1) *8,J3+ABS (J3>=SPLI 
TS) ) + 

1740 IF NUM$(J$,P$4I$-1) AS=FNpad (8 ,NU 
M$(J$,P$412-1)/100) ELSE AS=pad$ 

1750 PRINTAS:NEXT, 

1760 PROCcolour (1) 

1770 VDU28,8,31,39,28, 12 

1780 PRINT'"Return......Exit to menu." 

1790 PRINT"Tab.........Enter value." 

1800 PRINT'"Cursor keys.Move cell." 

1810 РВІМТ"Сору........Соріев cell."; 

1820 VDU28,8,27, 39,8: PROCcolour (2) . 

1830 ENDPROC 

1840 : 

1850 DEF PROCdisplaysinglevalue 

1860 2. 
1870 PRINTTAB ( (Х%- 
IT$)); 

1880 IF NUMZ(Y$,X$) AS=FNpad (8,М0М%(Ү% 
,Х%)/100) ELSE AS=pad$ 

1890 PRINTA$:ENDPROC 

1990 : 

1910 DEF PROCshowcell (T) 

1920 PROCcolour (1) 

К PRINTTAB ( (X$-P£2) *8,Y3 3+ABS (Y3>=SPL 

TS) ) + 
EU IF T AS=FNpad (8, TA 00) ELSE Аб-ра 


P$)*8,Y$ 5 АВ8 (ҮЗ >=SPL 


ds 

1950 PRINTAS: ENDPROC 

1969 : 

1970 DEF PROCshift 

1980 X$-X$-4 

1990 IF X$-0 Х%-12 ELSE IFX2»-12 X$-1 
2000 PZ-((X$-1)AND12)-41:LP$-0 


2010 ENDPROC 
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2030 


2020 


DEF PROCentervalue 


2040 PROCcolour (1) 

2050 PRINTTAB ( (X$-P2) *8,Y3 24ABS (ҮЗ >=SPL 
ITS) ) STRINGS (8,CHRS32) 

2060 INPUTTAB ( (X3-P%) *8, YS+ABS (Y3>=SPL 
ITS) )T 

2070 NUM% (Y%,X%) =T* 190: ENDPROC 

2080 : 

2090 DEF PROCinit 

2100 BS=4:F%=3: PROCcolours: @3=1G 

2110 OPNBAL-0:pad$-" == " 

2120 NUM%=24:SPLITS=1 4: PROCmonths 

2130 DIM МОМ%(М0М%,12) ,HDGS (NUM£) 


2140 
2150 
2160 
2170 
ITS) 
2180 
2190 


2200 : 


2210 
2220 
2230 
2240 
2250 


2260 : 


2270 
2280 
2290 
"ERL 
2300 


2310: 


232@ 
233@ 
234@ 
235@ 
236@ 
2370 
2380 
2390 
2402 


FORI%=1TOSPLIT3Z—1 

HDGS (I2) ="Credit"+FNpad (2,1%) 
NEXT 3 FORI3=SPLITSTONUMS 

HDGS (I2) ="Debit"+FNpad (3,1+1I3-SPL 


NEXT: @3=& 1020208 
DIM BCF% (13) : ENDPROC 


DEF PROCcOlO 
үр019,0,В%,0 
VDU19,1,F2,0 
VDU23,1,0;0; 
ENDPROC 


u 


ГА 
ГА 
0; 


соз ҹ 


DEF PROCerror] 
ON ERROR OFF :VDU26,20,12 
IF ERR<>17 REPORT: PRINT" at line 


ENDPROC 
DEF PROCerror2 
LOCAL A$:VDU26,20,12:E$-0 
IF ERR=17 AND NOT INKEY-1 ENDPROC 
REPORT: PRINT" at line ";ERL 
PRINT"Continue? (Y/N)"; 
REPEAT A%=GET AND «ПЕ 
UNTIL А%-89 OR А%-78 
*FXA 
$= (A$-78) $ ENDPROC 


2410 : 


2420 
2430 
2440 
2450 
rl) 
2460 
2470 
2480 
2490 


2500 


2510 
2520 
2530 
2540 
2550 
2560 
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DEF PROCsave 

LOCAL T%:PROCcolour (2) 
VDU26, 12: PROCcolour (1) 
PROCspread("Data saving section." 


PROCcolour (2) :VDU28,0,31,39,3 
PROCfile: TÉZOPENOUT FS 

PRINT#T% , DATES , OPNBAL , NUM3 , SPLITS 
FORI$-1 TONUMS : PRINT#T% , HDGS (1%) 
FORJ£-1 TO12: PRINT£T$ , NUM? (I2, J) 
NEXT, ;CLOSE#T%: VDU26, 20,12 
ENDPROC 


Ф 
° 


DEF PROCload 
LOCAL T%:PROCcolour (2) 
VDU26, 12: PROCcolour (1) 


2570 


rl) 

2580 
2590 
2600 


PROCspread("Data loading section 


PROCcolour (2) : VDU28,0, 31, 39, 3 
PROCfile:T$-OPENIN FS 
IF T$-0 CLOSE#TS:PRINT''"File not 


found!"'"Return for menu.":REPEATUNTIL 
GET=1 3: ENDPROC 
2610 INPUT #T% , DATES , OPNBAL , NUM$ , SPLITS 


2620 
2630 
2640 
2650 
2660 


2670 : 


DIM NUM (NUM$, 12) , HDGS (NUM3) 
FORI$-1 TONUM$:INPUT4T$ ,HDG$ (1%) 
FORJ%=1 TO12:INPUT4T$,NUMS$ (I£2,J£) 
NEXT, :CLOSE4T$: VDU26, 20,12 
ENDPROC 


2680 : 


2690 
2700 
2710 
2720 
2730 


2740 : 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


DEF PROCmonths 
DIM MONS(12):RESTORE 1090 


FORI$-1 ТО12:ВЕАПр AS 

MONS (1%) =" ="+AS+"= "iNEXT 
ENDPROC 

DEF PROCtab 

PROCcolour (2):VDU12,28,0,28,7,2 


PROCcolour (1) :CLS 

FORI$-1 TOSPLIT%S—1: PRINTHDGS (1%); 
NEXT: PRINT: FORI 3=SPLITSTONUMS 
PRINTHDGS (1%) ; МЕХТ 
PRINTTAB (0,26) "Balance"; 
PROCCOlour (2) 
VDU28,8,31,39,0,12,26 
PROCcolour (1) 

PRINTTAB (3,31) "Date:"; 
VDU28,8,31,39,0 

PRINTTAB (0 , 31 ) DATES; TAB (17,31) "Sp 


 ace/Return"; 


2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 


PROCcolour (2) 
Х%-1:Р%-1:ВСЕ% (0) =OPNBAL 
ЕОҺІ%-1 TO12 

BCF% (I2) -ВСЕ% (1%-1) 
FORJ$-1TOSPLIT£-]1 

BCF$ (1%) “ВСЕ% (I2) *NUM$ (J2,I£2) 
NEXT: FORJ%=S PLITSTONUM3 
BCF% (1%) =BCF% (1%) -МОМ® (Jg, I2) 
NEXT, : REPEAT: PROCtabbed :A%=GET 
IF А%-32 PROCshift 
UNTILA%S=1 3: ENDPROC 


o 
© 


DEF PROCtabbed 
ҒОКІ%-1Т04 
PROCcOolour (1+ (I$AND1) ) : PRINTTAB(( 


I$-1) *8,0) MONS (I3-1+P$) 


3030 
I$-1) 
3040 
3050 
3060 
3070 
3080 


PROCcolour (2- (I$AND1) ) : PRINTTAB ( ( 
*8,1) ; i T-BCF2 (I2-24P2) /100 

IF T-0 PRINTpad$ ELSE PRINTT 
NEXT: PROCcolour (2) 

FORI%=1T04 

FORJ$-|TOSPLIT$-1 


PRINTTAB ( (I$-1) *8,J$41) ; : T-NUM$ (J 


%,1%-1%р%)/100 


3090 
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IF Т=0 PRINTpadS ELSE PRINTT 
NEXT:FORJ$-SPLITZTONUM$ 
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$,I19TP$-1)/100 

3120 IF Т=0 PRINTpadS ELSE PRINTT 
3130 NEXT: PROCcolour (1) 
3140 РБІМТТАВ((1%-1)%8,28); 
1+Р%) /100 

3150 IF T=@ PRINTpadS ELSE PRINTT 

3160 PROCcolour (2) NEXT: ENDPROC 

3170 : 

3180 DEF PROCos 

3190 VDU26,12 

3200 PROCcntr ("OS Command.",1) 

3210 INPUT"*"S&CQO:X2$2-20:Y9$-&C 

3220 VDU14:CALL&FFF7 

3230 PRINT'"Press SPACE to continue:"; 
3240 REPEAT UNTIL СЕТ-32:СІ,5 

3250 ENDPROC 

3260 : 

3270 DEF PROCdate 

3280 PRINT'''':REPEAT 

3290 INPUTTAB(15)"Date :"DATES 

3300 UNTIL LENDATES<11:ENDPROC 

3310 : 

3320 DEF PROCtitles 

3330 *FX4 1 

3340 PROCcolour (2) CLS 

3350 PROCcolour (1) :Р%=1 

3360 VDU28,0,31,39,28,12 

3370 PRINTTAB(0,29)"Cursor keys.Move p 
ointer" 

3380 PRINT"Return......Exit to menu" 
3390 PRINT"Press Tab, Enter String, th 
en Press Return."; 

3400 VDU28,0,27,39, g: REPEAT 

3410 PROCcolour (1) 

3420 PRINTTAB (0,0) "Credit Headings:" 
3430 PROCcolour (2) 

3440 FORI%=1TOSPLIT3—1 

3450 PRINTHDGS (1$) МЕХТ 

3460 PROCcolour (1) 

3470 PRINT"Debit Headings:" 

3480 PROCcolour (2) 

3490 FORIZ=SPLITZTONUMZ 

3500 PRINTHDGS (I2) : NEXT 

3510 РКІМТТАВ(20,Р%-(Р%>-5РҺІТ%));"«<-- 
p 

3520 PROCcolour (1) 

3530 PRINTTAB (Ø, P3— (P3>= SPLITS) )НОС$ (P 
%) 

3540 PROCcolour (2) А%-СЕТ 

3550 *FX15,1 

3560 РКІМТТАВ(20,Р%-(Р%>-5РІ,1Т%))  5РС4 
3570 IF А%-9 PROCenterthisheading 

3580 с А%-138 P%=P%+] 

3590 IF А%-139 P$-P2-] 


3110 PRINTTAB((I$-1)*8,J242);:T-NUM$(J 3600 IF P%= 


<Т-ВСЕ%(1%- 


3610 IF РФ>МОМ% P$-1 

3620 UNTIL А%-13:%ҒХ4 

3630 ENDPROC 

3640 : 

3650 DEF PROCenterthisheading 

3660 У0028,20,1%Р%-(Р%>-5РІ,1Т%) ,39,Р%- 
(PS»-SPLIT2),12 

3670 REPEAT INPUT HDGS (P$) 

3680 UNTIL LEN НОС5(Р%)<9 

3690 HDGS (P$) =LEFTS (HDGS (P$) -STRINGS (8 


; CHR$32) ,8) 


3700 VDU12,26: ENDPROC 

3710 : 

3720 DEF PROCqui t 

3730 VDU26,20,12:END 

3740 : | 

3750 DEF PROCsummary 

3760 RESTORE 1090: PROCcolour (2) 

3770 VDU26,12:PROCcolour (1) 

3780 PRINT'"Balances at end"'"of each 


month,"' 


3790 PROCcolour (2) :BCF% (Ø) =OPNBAL 
3800 FORI$-1TO12 

3810 BCF% (I%) =BCF% (13-1) 

3820 FORJ%=1TOSPLITZ—-1 

3830 BCF% (1$) =BCF% (13) +NUMZ (J3, 13) 
3840 NEXT:FORJZ-SPLIT£TONUM$Z 

3850 BCF% (1%) =BCFS (1%) —NUMZ (J%, 1%) 
3860 NEXT, :FORI%=1TO12 

3870 PRINTTAB (2) : : PROCcolour (1) 
3880 READ AS:PRINTAS 

3890 PROCcolour (2) 

3900 PRINTTAB(7)BCF$ (I2) /100: NEXT 
3910 PROCcolour (1) 

3920 PRINTTAB(18,1)"Income/Outcome Sum 


mary" 


3930 PROCcolour (2) 

3940 FORIS=1TONUM3 

3950 PRINTTAB (20, 12-1) HDGS$ (I2) ; 

3960 Т%-0:ҒОЮҺ2%-1Т012 

3970 Т%-Т%ҒМОМ%(1%,2%) :МЕХТ 

3980 IF T$ PRINTTS/10@ ELSE PRINTpad$ 
3990 NEXT: PROCcolour (1) 

4000 PRINTTAB(0,29)"Return to continue 


Ww 
° 


4010 REPEAT UNTIL GET=13:ENDPROC 

4020 : 

4030 DEF PROCfile 

4040 REPEAT 

4050 INPUT"Filename :"FS 

4060 UNTIL LENFS<11:ENDPROC 

4070 DATA Load Data, Enter Headings, En 


ter/Amend Data,Tabulation,Summary Table 
,бауе Data,* Command,Finish 
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OKS FOR DISC USERS 


Reviewed by Sheridan Williams 


Sinclair published by Granada at £6.95. 
ISBN 0-246-12325-7 


Ian Sinclair has an easy style and I 


liked this book very much because of 
it. This is partly due to Ian's depth 
of knowledge about the Beeb, and also 
because with over 40 previous books on 
electronics and computing, he has a 
great deal of experience in writing 
readable material. 


If you have not yet decided on a 
disc system for your Beeb, then this 
book is much more useful than Tony 
Latham's because, as the book's title 
would suggests, several systems are 
covered. Sinclair describes not only 
the Acorn DFS but also Watford's and 
the Pace/AMCOM DFS. 


The later chapters are devoted to 
filing. I was particularly interested 
in this aspect because I have not yet 
read a book that covers files in 
anything but a superficial way. Ian's 
description of sequential files is 
clear and understandable. I was also 
pleased to see some time devoted to 
random files, and several examples were 
given explaining their use. To finish 
the section on files Ian mentions 
(albeit briefly) Index Sequential files 
(ISAM files). It is strange that 
Sinclair seems to miss the point about 
ISAM files used іп his example, by 
suggesting a serial search through the 
index file to find the start address 
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Disk Systems for the BBC Micro by Ian 


for the required record, when if he had that the beginner needs a much clearer 
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stored the start address rather than 
the record length for each record he 
would have achieved the same ends 
without having to read the whole index 
file serially. 


On page 11 Sinclair is describing 
the various configurations of 
double/single sided, 40/80 track, 


double/single sided drives, and says 
"Tt's not advisable to use double sided 
discs if you have a single sided drive, 
because a Single sided drive will not 
offer the same support to the opposite 
side." I cannot understand this as 
there is а felt pressure pad opposite 
the head, and the discs themselves are 
of identical construction. For many 
people who intend to buy a double sided 
drive at a later date but. currently 
only have a single sided drive it is 
most sensible to buy DS discs right 
from the start, so that they can be 
used on both sides when the DS drive is 
later acquired. 


Topics covered in the book are:- 
About discs and disc systems 
The various disc filing systems and 
their features. 
*SAVE *LOAD *DUMP *LIST *TYPE *OPT 
auto-booting. 
Text files and their 
(including Wordwise). 
Disc Utilities and how to use them. 
Basic filing techniques. 
DFS commands. 


problems 


In conclusion this book is full of 
good ideas, and contains very few 
errors, though one consistent error is 
the use of filenames longer than that 
permitted on the Acorn DFS. 


The BBC Microcomputer Disk Companion by 
Tony Latham published by Prentice Hall 
International at £7.95. 

ISBN 0-13-069311-41 


This book is nothing like as easy to 
read as the one by Ian Sinclair. I 
found many | of the descriptions 


fundamental to the understanding of 
discs hard to follow, and would suggest 
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formatting program. Latham spends а 
fair amount of. text explaining how 
these programs work. These programs are 
hardly the type of program that the 
beginner would tackle. 


The chapter on file handling is in 
my view poor, and contains misleading 
Statements like "New Basic requires 
OPENUP instead of OPENIN." The truth is 
that Basic II has both ОРЕМІМ and 
OPENUP, each having a different use, 
however to maintain compatibility 
between Basic I and Basic II you should 
only use OPENUP on machines that have 
Basic II. 


approach. This considerably devalues Latham's description of random files 

the book for those who use it for in Basic is virtually non-existent and 

learning about their Acorn DFS. is mostly described using assembly 

language instructions. This will 

The copyright on this book is 1983, probably put the beginner off 

and it is obvious in several places altogether. 

that the book is not as up to date as 

Sinclair's. In fact Tony told me he was SUMMARY 

working оп this book in February 1983. For me there is no competition 

The book is also written for the between the books, Sinclair's is far 

American market with the American better value for money (and it's £l 

spellings of 'color' 'center' cheaper anyway). The main justification 

'endeavor' etc. for buying Latham's book would be if 


you were familiar with disc systems but 

This book is really aimed at those wanted descriptions of the 05 
with the Acorn DFS, and no others are Statements OSFIND, OSARGS, OSFILE etc, 
described. in which case the Advanced User Guide 


provides much more detail anyway. 
Much of the book is based around 


three programs given in the book - а I still maintain that there is а 
disc formatter, verifier, and a word need for a complete book devoted to 
processor. The formatter is rather a file handling, totally separate from 
waste of space because all suppliers of books on disc systems. I await such a 
discs systems for the Beeb now supply a book with interest. 


SEIKOSHA POUND PATCH - V.Haworth 

The following program will correctly print a pound sign on a Seikosha printer 
connected to a BBC micro. First set the printer to the USA setting, run the program, 
and press Break. After this all occurrences of '£' will be printed correctly. 

This program changes the contents of the buffer insert vector located at &22A and 
&22B to 'point to itself'. The character 860 (BBC pound) is searched for апа 
changed to &B9 (Seikosha pound), providing the printer is enabled. 


10 FOR 15=0 TO 2 STEP 2:P$2-&90 70 LDA #&B9 \ Seikosha '£'. 

20 [OPT I$ 80 .exit 

30 CMP 4$&60 \ IS character 90 JMP &E4B3:] 

40 BNE exit Ха '#'. 100 NEXT 

50 CPX #3 \ Printer buffer 110 ?&22A-&90:?&22B-00 

60 BNE exit \ is 3. 120 *K.10 ?&22A-&90:?&22B-0:VDU 12 |М без) 
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oS by D. J. Pilling 


This is a very handy utility for all cassette users as it not only 


AX r1 
3 X 


provides an index of programs that you have saved on a cassette but 
1t also works out the counter settings as well for speedy access. 


One of the problems with keeping 
several programs on a cassette is that 
of accessing the programs when you want 
to use them. Unless you know fairly 
accurately where a program is saved, 
much time can be wasted just finding 
where the start of the program is. Most 
cassette players used with computers 
have a counter which can be very useful 
in identifying the start of any given 
program. We now go one step further and 
automate | the whole process of 
cataloguing a cassette of programs with 
the utility listed here. 


The indexer utility will 
automatically read through a complete 
cassette of programs and produce an 
index giving for each program its name, 
its length in blocks and in bytes, 
starting time in seconds and starting 
counter reading. The indexer also has 
some capability to cope with programs 
which contain recording errors (i.e. 
which would not load under normal 
circumstances). If such a program is 
found, its length in bytes is entered 
as a blank, providing an indication of 
its bad state. 


The rate ай which the counter 
rotates varies, sometimes 
Significantly, from опе cassette 


recorder to another. For this reason, 
the indexer program contains a special 
calibration routine to enable it to 
work reasonably accurately with any 
cassette recorder. Once the program has 
been calibrated in this way (in effect 
by setting the values of two variables 
R and D) the indexer will automatically 
record the correct counter readings ав 
it reads through а cassette of 
programs. Іп addition, the indexer 
program can also be used іп manual 
mode, with you entering the correct 
counter value at the start of each 
program on a cassette. Тһе indexer 
program contains full instructions to 
guide you through whichever option you 
choose. 


USING THE INDEXER PROGRAM 

Before using the indexer program you 
should make sure you have at least one 
copy securely saved. This is important 
as the indexer program modifies itself 
when it runs, leaving you only with the 
cassette index ағ the end of its run. 
The program details the three choices 
open to you. These are: 


1. Manual indexing of cassette, 
2. Automatic indexing of cassette. 
3. Calibration and indexing. 


CALIBRATION 

This section allows the values of R 
and D for your cassette recorder to be 
calculated precisely. Once selected, 
the tape will start running, and you 
should press the space bar when the 
prompt is displayed. You will then be 
asked to enter the counter reading. The 
program will continue to read through 
the tape, indexing the programs as it 
finds them. After a reasonable interval 
(to get a good average reading) press 
the space bar a second time and enter 
the new counter reading. The program 
then calculates the correct values of 
the constants R and D before continuing 


to index the programs on the tape as 
described below. 


AUTOMATIC INDEXING 

With this option, the program reads 
through the tape, and notes down each 
file, its length, where on the tape it 
Starts, and at what tape counter value. 
When you are satisfied that all the 
files have been included, press Escape 
ONCE ONLY. The program will then modify 
itself, leaving you with a small. 
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program that when run, lists out the 


files on the tape, in order, with their 
associated statistics. You can save 
this program if required, and also, if 
available, list out the index ona 
printer by including Ctrl-B when you 
type the RUN command. 


MANUAL INDEXING 

With this option, you are required 
to enter the value of the tape counter 
at the start of each program, but aside 
form that, it is functionally 
equivalent to the automatic indexing 
option. Because of the way in which 
this option is performed, only cassette 
users with motor control will be able 
to use this option correctly. 


1 REM PROGRAM TAPE INDEXER 
2 REM AUTHOR D.J. PILLING 
3 REM VERSION В1.2 
4 REM BEEBUG APRIL 1984 
5 REM PROGRAM SUBJECT TO COPYRIGHT 
6: 
50 MODE7:0$-&20406 
60 PROCINS 
70 *OPT1,1 
80 DIMNS (100) , TS (100) ,CS (100) 
90 ONERROR GOTO580 

95 PROCTITLE 

100 PRINT''''CHR$134" (1) "CHRS135"MANU 
AL" 'CHRS134" (2) "CHR$135"AUTO"'CHR$134"( 
3) "CHRS$135"CALIBRATE"'''CHRS13Q"SELECT 
TAPE COUNTER MODE:";:INPUT""C$ 

110 ІЕС%<1 OR С%>3 С0Т0100 

120 TS$-0: TF$-0:N$-0 

130 REM ===шш===шшшщшщшщшщшщшщщщшщщщщщщшшщщ 

140 REM DEFAULT К AND D 

150 R-.2779:D-.0003 

160 REM z-zz2z-2-2-2-2z2zzzz2--zzzzz--L-- 

170 CLS:TIME-TF$ 

180 X$-OPENIN("") 

190 Т5%-ТІМЕ:М%-М%-1:РБВОССАҺ: ТІМЕ-Т5% 

200 REPEAT Z3=BGET# X$:UNTIL ЕОЕЯХФ 

210 CLOSE #X% 

220 ТЕФ-ТІМЕ 

230 PROCST 

240 GOTO!79 

250 IF С%>2 PROCCX 

260 НІМЕМ-НІМЕМ-8000:Р%-НІМЕМ 

270 PROCDS:P$-HIMEM 

280 L9$-6000 

290 FS=STRSL3+"D. "+STRSNS+CHRS 1 3+"G. 3 
10" XCHRS13 

300 PROCWR (FS) 

310 1.%=6010:1%=1 

320 FSzSTRSLZ-"D,"-FNSS4CHRS13-"G, 340 
"+CHRS13 

330 PROCWR(FS) 

340 LZ=L3+5 


350 FS=STRSL3+"D."+FNSS+","+FNSS+CHRS 
13-"G. 370" 4CHRS$13 

360 PROCWR (FS) 

370 L$-L2$410:12$-I$-41 

380 IFIS>N% ELSE GOTO320 

390 Е$="РЕГЕТЕЙ, 1500"+СНВ513 

400 CLS:PRINT''"I'M YOUR INDEX"''"SAV 
E ME" 

410 PRINT'''"(The program in the comp 
uter is now an"'"index of the tape; whi 
ch you may run"'"and save.)"'' 

420 PROCWR (FS) 

430 END 

440 DEFPROCWR (AS) 

450 FORJ%=1TOLENAS 

460 A%=&8A:X%=G: Ү$=АЅС (MIDS (A$,J$,1)) 

470 CALL&FFF4 

480 NEXT : END 

490 DEFPROCDS 

500 FORI$-lTON$ 

510 SPZ-NS(I):P$-P$TLENNS(I2)-41 

520 SP%=TS (1%) :P3=PS+LENTS (1%) +1 

530 SP%=CS (1%) : P3=PS+LENCS (1%) +1 

540 NEXT: ENDPROC 

550 DEFFNSS 

560 AS=SP%: PS=PS3+LENSPS+1 

570 =AS 

580 IF ERR=17 AND ERL-180 GOTO250 

590 IF ERR=17 AND ERL-200 N$-N$-1:GOT 
0250 

600 IF ERR»200 TFS=TIME: PRINT: PROCST?: 
GOTO! 70 

610 ONERROROFF:REPORT:PRINT" at line 
"s; ERL: END 

620 DEFPROCST 

630 FS=FNS (60,УРО5-1) 

640 LS=RIGHTS (FS, 4) 

650 BS=MIDS(FS,12,2) 

660 FS=LEFTS (F$,19) 

670 IFMIDS(FS,18,1)<>" " GOTO700 

680 REPEAT FS=LEFTS (FS, LENFS-1) 

690 UNTIL MIDS(FS,LENFS,1)<>"_ " 

700 М5 (NZ) = "иин ES+BS+LSt"" " 

710 Т$(М%)=5ТЕ$ (Т5%0І1Ү100) 

720 С$(М%)=С$ 

73@ ЕМОРЕОС 

740 DEFFNS (X,Y) 

750 AS="":FORI%=0TO1 7: AS=AS+CHRS (? (HI 
МЕМ+Х+19+40*Ү)) : NEXT 

760 =AS 

77@ DEFPROCCAL 

780 *FX21,9 

794 Y$-VPOS 

800 IF C$-21:VDU7,7:INPUTTAB (0, Y$41) "№ 
UMBER ON TAPE COUNTER "CS: IFCS=""GOTO8 


810 IF C$-2 CS-FNTC (Т5%0ІҮ100) 
820 IF С%>2 CS=""s PROCCALS 
830 PRINTTAB(0,Y$); 

840 ENDPROC 
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870 РВІМТТАВ(0,Ү%-1) "ТО СО FOR CALIBR 
ATION PRESS SPACE BAR": IK=INKEY (200) 

880 IF ІК<>32 РВІМТТАВ (0,Ү%+1) 52С (39) 
$ ENDPROC 

890 INPUT'"INPUT NUMBER ОМ TAPE COUNT 
ER "№1% 

900 ІЕМІ%-й PRINT"ERROR ZERO ENTERED" 
:ІК=ІМКЕҮ (200) : ENDPROC 

910 IF C$-3 М2%-М1%:Т2%-Т5%ОІУ100:С%- 
4: ENDPROC 

920 IF М1%-М2% PRINT"ERROR SAME NUMBE 
R ENTERED TWICE": IK-INKEY (200) :GOTO890 

930 T1S=TSZDIV1 GG: PROCCDR 

940 IFD-0 PRINT"ERROR INSUFFICIENT AC 
CURACY"'"TRY AGAIN LATER": IK=INKEY (200) 
: ENDPROC 

950 PROCCX:C%=2:CS=FNTC (TSS$DIV1049) 

960 PRINT'"CALIBRATION COMPLETED"' 

970 PRINT"YOUR D VALUE = ";D 

980 PRINT"YOUR В VALUE = ";R 

990 PRINT'"(Retain all digits. Next t 
ime you LOAD"'"the program enter R and 
D in Line 15@.)" 

1000 PRINT'CHRS130"ANY KEY TO CONTINUE 
" 

1010 IK=GET 

1020 ENDPROC 

1030 DEFPROCCDR 
1040 П-(Т1%/М1%-Т2%/М2%) /РІ/(М1%-М2%) 

1050 К-(Т1%/М1%/(М1%-1)-Т2%/М2%/(М2%-1 
))/РІ/2/(М2%-М1%)%(М1%-1)%(М2%-1) 

1060 ENDPROC 

1070 ОЕКЕМТС(6Т%) 

1080 =STRS (INT ( (D—2*R+SQR ( (2*R-D) ^244* 
ST2$*D/PI) ) /2/D+@.5) ) 

1090 DEFPROCCX 

1100 FOR J$-1TON2:CS$ (J2) =FNTC (VAL (TS (J 
%))) :NEXT: ENDPROC 

1110 DEFPROCINS 

1111 PROCTITLE 

1120 VDU7:PRINT''CHR$129;"WARNING THIS 

PROGRAM IS SELF"'CHRS129"MODIFYING. BE 
FORE PROCEEDING"'CHRS129;"MAKE SURE YOU 

HAVE A COPY."''TAB(17)CHRS13@"ANY KEY 
TO START" ;:IK-GET:CLS:*FX21,0 

1130 PROCTITLE:PRINT'CHR$134;"HOW TO U 
SE THE PROGRAM"'"Put the tape you want 
an index of in"'"the recorder. Zero the 

tape counter."'"You now have three opt 
ions:" 

1140 PRINTCHR$134;"(1) MANUAL"' "Enter 
the numbers on the counter"'"at the sta 
rt of each program as"'"prompted." 

1150 PRINTCHRS134"(2) AUTO"'"Let the p 
rogram calculate the"'"tape counter rea 
dings; using default"'"R and D values p 
reviously determined"'"for your recorde 
r and type of tape"'"and entered in lin 

9 


1160 PRINTCHRS134"(3) CALIBRATE"'"'Inpu 
t two tape counter readinas to"'"calibr 
ate the program for your"'"recorder and 
then proceed as in (2)." | 
1180 PRINT''TAB(17)CHRS13@"SHIFT TO ST 
АВТ": 

1190 REPEAT UNTILINKEY-1:*FX21,0 

1200 ENDPROC 

1210 : 

1220 DEF PROCTITLE 

1230 CLS 

1240 PRINTTAB (19) CHRS129;CHRS157;CHRS1 
31; "TAPE INDEXER  ";CHRS$156 

1250 ENDPROC 

1260 : 

5000 CLS:PRINTTAB (13) CHR$129CHR$157CHR 
$131"TAPE INDEX  "CHR$156 

5010 Y$-l:RESTORE6000 : READN$: PRINTCHRS 
134"NAME"TAB (12) "B"TAB (16) "L"TAB (22) "TI 
ME"TAB (30) "ТАРЕ" 

5020 БОҺІ%-1ТОМ% 

5030 READNS,T3,C3 

5040 LS-RIGHTS (NS, 4) :BS=MIDS (NS, LENNS- 
5,2) :NSZLEFTS (NS, LENNS-6) 
5050 PRINTNSTAB (12) BSTAB (16) LSTAB (23) ; 
STAB (31) ;C$ 


5060 NEXT 
Note: The program above uses some 
rather unconventional coding 


techniques, which also accounts for the 
fact that the line numbers do not 
follow our usual pattern. Do not 
renumber this program. 


MANUAL CALIBRATION 

Those whose cassette recorders do 
not have motor control should use this 
separate program to calibrate the 
system before using option 2 in the 
main program already described. When 
you run the calibration program, switch 
your cassette recorder to 'play' and 
note the counter reading on each of the 
two occasions that you hear a bleep. 
The program will then ask you to enter 
these two readings which are used to 
calculate the values of R and D which 
you should then include іп the main 
program at line 150, 


10 REM PROGRAM NO MOTOR CALIBRATE 

20 REM AUTHORS D.J. PILLING/ D. FELL 
30 REM VERSION В1.1 

40 REM BEEBUG APRIL 1984 


50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 


100 *OPT! 1 

110 MODE 7 

120 Т2%-0 

130 РКІМТСНК89130; "MANUAL CALIBRATION. 
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140 PRINT''"NOTE THE COUNTER VALUES О 240 PRINT"D VALUE IS "D'"R VALUE IS " 


N THE TONES." | R l 
150 X$-OPENIN"" 250 PRINT"NOTE THESE AND USE AT LINE 
160 TIME-0 150 OFTHE"'"MAIN PROGRAM. ALL DIGITS AR 
170 500М017,-15,100,10 Е SIGNIFICANT" 
180 REPEAT B%=BGET#X3: UNTILEOF#X% 260 END | 
190 500М017,-15,100,10 270 : 
200 Т1%-ТІМЕ DIV 100 1000 DEFPROCCDR 
210 CLOSE4X$ 1010 р-(Т1%/М1%-Т2%/К2%) /РІ/ (М1 %-№2%) 
220 INPUT"FIRST COUNTER VALUE "N2$'"S 1020 R-(TI2/N12/ (N12-1) -T23/N23/ (N2$-1 
ECOND COUNTER VALUE "N1$ )) /PI/2/ (N2$-N12) * (N1$-1) * (N23-1) 


230 PROCCDR 1030 ENDPROC 


DIRECT MEMORY ACCESS ACROSS THE TUBE 

A relatively unknown fact about the BBC micro, is that you can read from, and 
write to, specific memory locations in the Beeb without worrying about Tube 
incompatibility. This is achieved by using OSWORD with A-&5 (for read) and A-&6 (for 
write). The X and Y registers hold an address pointing to four bytes of memory 
containing a 32 bit address i.e. ХҮ+0=15В of address, XY¥Y+3=MSB of address. ХҮ+4 
contains the byte to be written, or the byte just read. Usually the most significant 
16 bits are unused, but, setting these to &FFFF will specifically select the BBC 
micro's memory range. sj] 
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'NEXT,' EFFECT WITH LISTO7 - M. Robinson | 

In BEEBUG Vol.1 No.8 it was pointed out that a series of FOR..NEXT loops can be 
terminated with commas e.g. NEXT,,. However these commas are not recognised by the 
LISTO7 option, used to format listings by indenting by two spaces for each nested 
loop. Loops terminated by a comma will not be indented by an extra two spaces for 
each NEXT that has been replaced by a comma. 

This also applies if the controlling variable of the loop is included e.g. NEXT 
А,В,С. Тһе actual keyword "МЕХТ" must be included to cancel the indentation e.g. 


NEXT: NEXT: NEXT. =] 
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TELETEXT DOWNLOADER CLASH - K.Wood 

In the downloader program on page 704 of Teletext, lines 32715, 32716 and 32717 
usually contain abbreviations for the commands PAGE (P.), EXEC (Е.) and BASIC (В.). 
These commands are passed to the operating system for interpretation. For example 
*PAGE, is a command recognised by the Teletext Filing System (TFS). However, some of 
these abbreviations may be intercepted by other ROMs, in particular Toolkit which 
will interpret P. as *PACK. We therefore advise you to ammend the commands in the 
downloader program to the full versions, as outlined above, before you save a copy 
and use it to download other programs. E 
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DIFERENCES BETWEEN THE АМСОМ DES AND ACORN DFS 

Unlike the Acorn DFS, the AMCOM DFS will not accept '*' as the wild card for any 
directory, but must have '#' as the wild card. i.e. *INFO *.* will only act on files 
in the current directory, but *INFO #.* will give information on all files. 

If the Acorn DFS comes across a disc with a coloured title, it will read it 
normally, but ап АМСОМ DFS will crash the Beeb because it uses the top bit of the 
first byte on the disc title to signify ordinary or extended mode. 

Pace have told us that the new version of their DFS allows PAGE to be set as low 
as 81100 providing you do not use data files, or 81200 if you do. The default seting 


for PAGE is &1500. In addition, it does not use any of the other internal buffers, 
unlike the older versions of this DFS. 
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LATEST GAMES REVIEWE 


by David Fell and Mike Beasley 


Title Chuckie Egg 


Supplier : A & F Software 
Price : £7.90 
Rating 2 ххх 


Chuckie Egg is опе of those 
addictive games that you could happily 
play all day, given nothing else to do. 
The scenario is very basic; you are a 
rather peculiar looking bird called 
Chuckie Egg, and you have to walk and 
fly around a complex of ladders, 
floors, and (later on) elevators, 
collecting eggs. Each round is 
completed when all of the eggs have 
been gathered, and you can gain extra 
points by eating the piles of grain 
that are also present. There is a bonus 
for completing the round as quickly as 
possible, and hazards are provided in 
the form of stork-like birds, which eat 
the piles of grain, and kill you if you 
get too close, with more features 
appearing as the game advances. 


The game gets increasingly harder as 
you progress through different levels, 
and the graphics, although perhaps а 
little simple, are quite pleasing, as 
are the sound effects. 


Title : Zalaga 
Supplier: Aardvark 
Price £6.90 
Rating kikk 


оо оо 


Zalaga is а very successful variant 
on the "blast ‘em out of the sky" 


BEEBUG 


April 1984 


theme. The aliens swoop in from various 
directions to form themselves into a 
Galaxians type layout at the top of the 
Screen. Once this is complete, they 
swoop down оп you, while at the same 
time you are trying to shoot as many as 
possible of them. A screen is completed 
when all the aliens are destroyed. 
Interspersed between these standard 
screens (which grow steadily faster and 
more vicious) are the Challenge Stages, 
where the aliens fly around іп set 
patterns, the object being to shoot as 
many as possible while they remain on 
Screen. It 15 also occasionally 
possible to summon up a second fire 
base to act in concert with the current 
one, doubling the fire-power (and 
target area). 


One very good point about this game 
is that it does not become tedious once 
you get good ағ it, as games addicts 
who've tried it will testify. The sound 
and graphics are very good, the latter 
being both fast and smooth, even if 


occasionally the aliens do disappear 


for a short time owing to a slight 
timing fault. This problem is not 
severe, and is hardly noticable once 
you get engrossed in the game. Тһе 
handling is very good, the controls are 
simple, and а nice touch is the 
Scrolling backdrop of stars. 


Overall, this is a superb game, 
probably the best game of its genre 
with the inevitable exclusion of 


Acornsoft's Planetoid. =| 
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MOVING TEXT DISPLAY(16K) 
by R. R. Hull 


The procedure described here provides an interesting visual way of 


displaying up to 255 characters on a single line, by scrolling the 


text sideways across the screen. 


The effect of this procedure is to 
present a line of text which moves 
horizontally across the screen from 
right to left as though being viewed 
through a window. The procedure is 
quite versatile and will allow you to 
position the window anywhere on the 
Screen and determine its length. This 
moving text display is similar іп 
appearance to that seen on the outside 
of buildings in some large cities. 


The procedure can be used in апу 
mode and is defined as follows: 


PROCscroll(col£,X$,Y2$,length£,T$,D2,CS$, 
texts) 


The various parameters used in the 
procedure are explained іп the 
following table: 

col% - Sets the colour of the 
text using COLOUR. 
X$ - Sets the left hand position 
of the text window. 
Ү% - Sets the vertical position 
of the text line. 
length$ - The length of the window 
for scrolling the text. 

% - Sets the scrolling rate. 

% - Determines the number of 
lines printed (set to ! for 
double height text in mode 
7, otherwise set to 0). 

CS - Any special codes to be 

inserted (e.g. double 
height in Mode 7). 

textS - The text to be printed (up 

to 255 characters). 


The parameter T$ (in hundreths of a 
second) is the time for the text 
message to move one character. 


The use of this procedure is 
demonstrated Бу the accompanying 
program. This  scrolls а suitable 


message across line 15 on the screen in 
Mode 1, using a window 5 characters in 
from the left hand side апа 30 

message is 


characters long. The 
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repeated continually, by placing the 
procedure call in a loop, until the 
space bar is pressed. 


The procedure will work with strings 
up to а maximum length of 255 
characters. Larger pieces of text can 
be displayed by calling the procedure 
several times and inserting the new 
section of text into the parameter 
textS. In Mode 7, teletext control 
codes can also be inserted into the 
text (provision for this has been 
included іп the program at line 140). 
To set up red, double height text in 
Mode 7, lines 100, 148 and 180 need to 
be changed to: 


100 MODE 7 
140 scS=CHR$129+CHR$1 41 
180 PROCscroll (2,0,12,49,28,1,sc$,T$) 


The window for the scrolling text is 
set within the procedure using the 
VDU28 command, and on exit from the. 
procedure text and graphics windows are 
restored to the full screen area using 
VDU26. Make sure that the values for 
the parameters X$, Y$ and  length$ аге 
appropriate to the mode (and text 
display) in use. 


Although very versatile as written, 
the procedure could easily be 
simplified for use in а specific 
program. For example, the parameter C$ 
is only relevant in Mode 7, апа could 
be deleted together with any other 
references to C$ in the procedure when 
used in other modes. The same is true 
for the parameter D$ and its use in 
line 1060. 


10 REM SCROLL 

20 REM Version Bl.3 

30 REM Author R.R.Hull 

40 REM BEEBUG April 1984 

50 REM Program subject to copyright 
60: 
100 MODE 1 
110 ОМ ERROR GOTO 220 


Volume-2 Issue-10 


Tested 


24 


130 VDU 23,244,60,126,219,255,126,60, 
36,66 | 
140 scS=CHRS (0) 
150 PRINT TAB(1,1)"Example";TAB(2,2)" 
o£"; TAB (3,3) "scrolling"; TAB(4,4) "text" 
160 T$-"You can use this procedure in 
any mode, providing you correctly set 
up the parameters as described in the t 
ext. The text can also include colour, 
graphic and control characters "+CHRS17 
+CHRS3+CHRS244+" like that!........" 
170 REPEAT | 
180 РКОСѕсго11 (2,5,15,30,15,0,5с5,Т5) 
190 UNTIL ІМКЕҮ (9) =32 
200 END 
210: 
220 ON ERROR OFF:MODE 7 
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230 REPORT:PRINT" at line ";ERL 
240 END 
250: 

1000 DEF PROCScroll (col%,X%,Y%, length 
,;T$,D$,CS$,text$):LOCAL I%,lines 

1010 VDU28,X%,31,X%+length3,@ 

1020 COLOUR со1% 

1030 FOR 1%-1 ТО LEN(textS)+length% 

1040 ТЕ I$«length$ lLineS=STRINGS (lengt 
Һ%- 3,CHRS32) +MIDS (textS,1,1%) ELSE lin 
eS=MIDS$ (text$,IZ-length?41,length?) 

1050 PRINTTAB (0, Y$) C$; 1ine$;CHRS32 

1060 IF D$ PRINTTAB(0Q,Y241)C$;lineS$;CH 
RS32 

1070 ТІМЕ=0:ВЕРЕАТ UNTIL TIME»-T$ 

1080 МЕХТ 1% 

1090 ENDPROC 
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MICRO (Part 2) - THE VIDEO ULA 


by Hugh D. Brown-Smith 


Hugh Brown-Smith continues his series of articles to help you test 


out your own micro when you suspect a fault. This month he 
investigates the video circuitry of the BBC micro. 


In this, the second part of this 
series I am going to deal with the 
video section of the BBC micro. This is 
handled by two main chips іп the 
machine, these being the infamous Video 
ULA and the 6845 video controller. 


Unfortunately it is not possible to 
test such а circuit in the same 
definitive way ав with the sideways 
ROMs in last month's article. Instead. а 
program is provided that attempts to 
use each of the facilities provided and 
it is then up to you to decide whether 
each feature is working correctly or is 
at fault. 


To assist with this, each individual 
test is described, while certain more 
common faults are covered in detail to 
aid more conclusive testing. The tests 
carried out by the program can only be 
assessed subjectively and there may 
well be variations between different 
machines. 


The program this month is written 
entirely in Basic and can be used on a 
16k or 32k machine. The 16k test will 
take less time since fewer graphics 
modes are available. 


TESTING 

The program should be loaded and 
run. With a 16k machine the test will 
start at Моде 4, and at Mode 0 with a 
32k system. 


The Mode 0 test starts by filling 
the screen with characters and then 
scrolling first left and then right. 
The Video ULA is most prone to failure 
in the eighty column modes. This is 
normally evident by small speckles 
appearing randomly on the screen, or 
individual characters flickering. 


Following the 'MODE 0 TEST', Mode 1 
is tested. This follows the same format 
as the previous test but is іп forty 
column mode. It is unlikely that this 
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or the twenty column tests will suffer 
from flickering. In each case the 


characters should be clearly defined 
and the scrolling smooth, moving first 
to the left and then back to the right. 


These tests progress through Modes 
2, 3, 4, 5 and 6, with the 16k tests 
starting at MODE 4. At the end of each 
test it is necessary to press the space 
bar in order to continue. 


Following the Mode 6 test, a colour 
background test is included. Іп each 
case the background should be of the 
colour stated on the screen, and a 
steady picture maintained. In this test 
it is quite possible that poor colour 
quality could be due to poor tuning of 
a television, or a fault in the monitor 
or television being used. The main 
objective of the test is to ensure that 
the correct colours are produced апа 
that the edges of the screen are 
clearly defined. If problems arise and 
a television is being used, try 
retuning the receiver to see if the 
picture improves. 


The 'BLACK-FLASH' and 'WHITE-FLASH' 
tests are designed to show up faults in 
the video ULA. Look carefully at the 
vertical edges of the screen and ensure 
these are sharp. Make sure as well that 
the screen is either all black or all 
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white and no lines are left of the 
In such cases the Video 


other colour. 
ULA will probably need replacing. 


The final test is in Mode 7 and each 


colour is printed іп columns, rather 
like a television test card. The order 
of the colours is written in the top 
line of the screen and should 
correspond to the bars. Each colour 
should be clearly defined апа the 
screen steady. You can then terminate 
the program by pressing space bar. 


Clearly, to use these tests fully 
does require the use of a colour 
display, and ideally an RGB monitor for 
the best results. Certain of the more 
common problems will be discernible оп 
black and white or green апа black 
Screens, but the colour checks will 
obviously not be possible. 


d d I d II i M f P) P 


10 REM VIDEO TEST PROGRAM 

20 REM Version В1.1 

30 REM Author Hugh D.Brown-Smith 

40 REM BEEBUG April 1984 

50 REM Program subject to copyright 


100 ON ERROR GOTO!260 
110 MODEO:PRINTTAB(35,2)"MODE 0 TEST" 
120 FORX$-0TO21 
130 FORY%=32T0O1 26: VDUY%: NEXT 
140 NEXT 
150 PRINT'"(c) BEEBUG 1984 (с) BEEBUG 
1984 (с) BEEBUG 1984 (с) BEEBUG 1984 ( 
c) BEEBUG 1984" 
160 PROCmove (&3909) 
170 MODE1: РКІМТТАВ (15,2) "MODE 1 TEST" 
180 ЕОВХ%-0Т010 
190 FORY%=32 TO126:VDU Y%:NEXT Y% 
200 NEXT Х% 
210 PRINT" (с) BEEBUG 
UG 1984 (с)" 
220 PROCmove(&3000) 
230 MODE2: РКІМТТАВ (5,2) "MODE 2 TEST" 
240 ЕОВХ%-0ТО4 
250 FORY$-32 TO126:VDU Y$:NEXT Y% 
260 NEXT X$ 
270 PRINT"(c) BEEBUG 1984 (c)BEEBUG" 
280 PROCmove (&3000) 
290 MODE3:PRINTTAB(35,2)"MODE 3 TEST" 
300 FORX%=@TO16 
310 FORY$-32 TO126:VDU Y$:NEXT Y% 
320 NEXT X$ 
330 PRINT"(c) BEEBUG 1984 (c) BEEBUG 
1984 (c) BEEBUG 1984 (c) BEEBUG 1984" 
340 PROCmove(&40090Q) 


1984 (с) ВЕЕВ 


ВЕЕВОС 


350 МОРЕ4: РВІМТТАВ (15,2) "МОРЕ 4 TEST" 
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360 ЕОЕХ%=@ТО1@ 


370 ЕОВҮ%-32 TO126:VDU Y%:NEXT Y% 
380 NEXT Х% 
390 PRINT"(c) BEEBUG 1984 (с) BEEBUG 
1984 (c) BEEBUG 1984" mE 
400 PROCmove (&5800) 
410 MODE5:PRINTTAB(5,2)"MODE 5 TEST" 
420 FORX$-0TOA 
430 FORY$-32 TO126:VDU Y%S:NEXT Y% 
440 NEXT X$ 
450 PRINT"(c) BEEBUG 1984 (c) BEEBUG 
1984" 
460 PROCmove(&5800) 
470 MODE6:PRINTTAB(15,2) "MODE 6 TEST" 
480 FORX$-0TO6 | 
490 FORY%=32 TO126:VDU Ү%:МЕХТ Y% 
500 МЕХТ Х% 
510 PRINT"(c) BEEBUG 1984 (с) BEEBUG 
1984 (c) BEEBUG 1984" 
520 PROCmove(&6000) 
530 МОрЕ5:У0019,0,1;0; 
540 PRINTTAB(4,10)"RED BACKGROUND" 
550 PROCget:PROCblank:VDU19,0,2;0; 
560 PRINTTAB(2,10) "GREEN BACKGROUND" 
570 PROCget:PROCblank:VDU19,0,3;0; 
580 PRINTTAB (2,10) "YELLOW BACKGROUND" 
590 PROCget:PROCblank:VDU19,0,4;0; 
600 PRINTTAB (3,10) "BLUE BACKGROUND" 
610 PROCget:PROCblank:VDU19,0,5;0; 
620 PRINTTAB(1,10) "MAGENTA BACKGROUND" 
630 PROCget:PROCblank:VDU19,09,6;0; 
640 PRINTTAB (3,10) "CYAN BACKGROUND" 
650 PROCget:PROCblank:VDU19,0,7;0; 
660 COLOUR]: РКІМТТАВ (2,10) "WHITE BACK 
GROUND" | 
670 PROCget:PROCblank:VDU19,0,8;0; 
680 PRINTTAB(4,5)"BLACK FLASH" 
690 PROCget:PROCblank 
700 MODE5:COLOUR 135:С,5:У0019,7,8; 0; 
710 СОГООЕ1П:РЕТМТТАВ (4,5) WHITE FLASH" 
720 PROCblank:PROCget 
730 MODE7 
740 PRINT" WHIT CYAN MAGE BLUE YELL G 
REE RED  BLAC" 
750 FORX$-&7C28TO&8000STEPAQ 
760 ЕОВҮ%-0ТО355ТЕР5 
770 X$?Y$-(135-Y$/5) 
780 X?(Y2$41)2157 
790 NEXT Y$,X$ 
800 FORX$-&7CACTO&8000STEPA40 
810 ?Х%-156 
820 NEXT X$ 
830 PROCget 
840 MODE7:PRINT''"Test complete." 
850 END 
860 : 
1000 DEFPROCscroll 
1010 А%-(М%/8) MOD 256 
1020 В%-(М%/8) DIV 256 
1030 VDU23;12,M$ DIV 2048;0;0;0 
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1040 VDU23;13,M% 
1050 T=TIME:REPEAT: UNTIL ТІМЕ>Т+10 
1060 ENDPROC 

1079 : 

1080 DEFPROCmove (m3) 

1090 M$-m$ 

1100 REPEAT MZ=M%+8 

1110 PROCscroll 

1120 UNTIL M3=m3+&8d 


1130 REPEAT М%=М$-8 : PROCscroll:UNTIL M$ 


=m% 
1140 PROCget 
1150 ENDPROC 
1160 


MOD 2048 DIV 8;0;0;0 — 
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1178 DEFPROCget 
1180 *FX15,1 
1190 А-СЕТ 
1200 ENDPROC 


1220 DEFPROCblank 

1230 РВІМТТАВ (0,10) ; SPC20 

1240 ENDPROC 

1250 : 

1260 IF ERR-25 GOTO 350 

1270 ON ERROR OFF:MODE 7 

1280 IF ERR<>17 REPORT:PRINT" at ";ERL 
1290 END 


PROGRAMMING AIDS 

Peter Bamford and Со. аге 
distributing а really useful aid for 
anyone programming the BBC micro. This 
is called Pixel-Pad and consists of a 
set of large (A3) size screen layout 
charts giving full information on 
character positions апа graphics 
co-ordinates for all graphics modes 
(0,1,2,4,5), together with 12 grids for 
designing user-defined characters. Also 
included is a similar sized сага 
summarising some of the frequently 
needed information for the Beeb (such 
as modes, colours, VDU commands etc). 

The Pixel-Pad costs £4.95 inc VAT 
(discounts and bumper packs available 
for education) from Peter Bamford and 
Со., 10 Barley Mow Passage, Chiswick, 
London W4 4PH. 


LOW COST LOUDSPEAKER KIT 

Capital City Electric have produced 
a loud speaker kit for the BBC micro. 
This comprises a loudspeaker in a smart 
black casing fitted with lead and jack 
plug plus a volume control, jack socket 
and wiring for fitting to your micro. 
No soldering is required and the whole 
operation takes but a few minutes 
[literally - Ға.) to install. The 
system was tried with a variety of 
music programs and gave reasonable 
sound quality. At £16.50 inclusive this 
seems good value for money. Contact 
Capital City Electric, 124 Arthur Rd, 
London SW19 8AA. 


BUFFERS FOR THE ВЕЕВ 

A>Line supply a range of printer 
buffers for Epson printers, and other 
general purpose buffers. They allow you 
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in progress. The buffers come in a 
range of sizes, from 2k to 64k. Prices 
range from £65 to £177.50 + (УАТ. 
Further details from: 


A>Line Computer Systems, 1 Church 
Farm Lane, Willoughby Waterleys, 
Leicestershire, LE8 3UD. 


TWO EPROM PROGRAMMERS 

Two new EPROM programmers have been 
released recently. The first one is 
produced by Oasis and costs £199 
(+VAT). It is capable of programming 
24/28 pin EPROMS/EEPROMS and comes with 
the necessary programming software. 
OASIS can Бе found at: Oasis 
Electronics Ltd., University Village, 
Norwich, NR4 7TJ. 


A much cheaper programmer is 
available from Softlife for 2764 and 
27128 type EPROMS, which are the main 
EPROMs the BEEB can use. It connects 
onto the User Port, from which it takes 
its power. The programming software is 
suplied on EPROM, which must be loaded 
into memory via the programmer, and 
saved on disc or tape. It costs £59 
(+VAT and post) from Softlife Ltd., 87 
Silvertown Way, London, Е16 4AH. 


EDUCATIONAL SOFTWARE 

Shiva Publishing Ltd. have decided 
to enter the ever expanding field of 
educational software, and have released 
the first of their software on numeracy 
and logic for primary schools. Further 
details can be obtained from Mr.N.John, 
4 Church Lane, Nantwich, Cheshire, 
CW5 5RQ 
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In the third instalment of our series on machine code graphics, we 
deal with multi-coloured graphics in Mode 2. 


In the last two articles ме 
introduced the principles of screen 
memory for Modes 5 and 4, and gave 
example programs for plotting both 
single and multi-sized multi-coloured 
characters in Mode 5. We now present 
details of the Mode 2 screen layout, 
and show you how to design and place 
multi-coloured characters on the screen 
in this mode. 


MODE 2 GRAPHICS 

Mode 2 is the most used mode when it 
comes to arcade games, probably because 
it offers the greatest number of 
colours at one time, and most arcade 
games аге based around multi-coloured 
characters. The disadvantage of this 
mode is that it uses 20k of memory 
compared with the 10k of Mode 5 that we 
described last month. In Mode 2, 
sixteen logical colours are available, 
and each of these is represented by a 
group of four bits. Table 1 shows the 
relationship between the binary code 
and the associated logical colour. 


| Binary | 


| Black | 

Red 
Green 
Yellow 
Blue 
Magenta 
Cyan 
White 
Black/White 
Red/Cyan 
Green/Magenta 
Yellow/Blue 
Blue/Yellow 
Magenta/Green 
| Cyan/Red | 

White/Black | 


хо о —J Oy Ul SP C0 hO = © 


Table. 1. Binary codes for 
colours in Mode 1. 


This time four bits are needed to 
code the colour for each pixel (since 2 
to the power 4 is 16, the number of 
colours to be specified) and, since 
each byte contains 8 bits, it follows 
that two pixels are represented by each 
byte. This leads to the byte map shown 
in figure 1 for the first character in 
a Mode 2 screen. 


Figure 1. Screen memory addresses 
of first character in Mode 2. 


To illustrate the way that pixels 
are converted into bytes for Mode 2, 
let us produce a striped character 
block. The pixels on each line will be 
coloured red, green, yellow, blue, 
magenta, cyan, white апа black 
respectively, working from left to 
right. Figure 2 shows how eight 
coloured pixels are converted into four 
bytes of data. 


—) Final pyte 
The other bytes code as follows: 
Yellow and Blue......26 


Magenta and Cyan.....53 
White and Black......42 


Figure 2. Coding of pixels in 
Mode 2. 
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The following program (Progran 7) 
will take the data calculated, and 
place it into the correct memory 
locations at the start of Mode 2 screen 
memory (83000) to give us the desired 
result. 


10 REM PROGRAM 7 
20 REM AUTHOR PETER CLEASE 
30 REM BEEBUG APRIL 1984 
40 REM VERSION В1.0 
58 REM PROGRAM SUBJECT TO COPYRIGHT. 
60: 
100 PROCassemble 
110 FORI$-0 TO 31 
120 READ I%?data 
130 NEXT _ | 
140 DELAY=INKEY 200 
150 MODE 2:VDU23,1,0,0;0;0;0; 
160 CALL start 
178 PRINT''' 
180 END 
198 : 
1000 DEF PROCassemble 
1010 DIM data 31 
1020 DIM code 100 
1030 FOR PASS-0 TO 3 STEP 3 
1040 P%=code 
1050 [ 
1060 ОРТ PASS 
1070 .start 
1080 LDY #@ 
1090 LDA 40 
1100 5ТА 872 
1110 5ТА 870 
1120 LDA #&39 
1130 STA 871 
1140 .loop 
1150 LDA даға,Ү 
1160 STA (8&70),Ү 
1170 ІМҮ 
1180 СРҮ #32 
1190 BNE loop 
1200 RTS 
1210 | 
1220 NEXT 
1230 ENDPROC 
1249 : 
2000 DATA 6,6,6,6,6,6,6,6 
2010 DATA 28,28,28,28,28,28,28,28 
2020 БАТА 54,54,54,54,54,54,54,54 
2030 DATA 42,42,42,42,42,42,42,42 


Note that the data is again listed 
DOWN each of the four columns of bytes 
in turn that comprise a character block 
in Mode 2. See earlier programs on 
screen access in this series for other 
examples. 
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Last month we listed а program 
(Program 6) to produce a shape that was 
two by two characters in Mode 5. This 
month we have listed a similar program 
(Program 8) that produces a shape of 
the same size but displays it in Mode 
2. The process of designing each of the 
four characters is similar to that for 
the striped character block descr ibed 
earlier. This month we have chosen a 
bowl of ice-cream to make a change from 
the more usual space invader. The four 
characters are placed on the screen in 
the order top left, top right, bottom 
left, bottom right as in last month's 
example. 


Once again, the program is written 


in the form of two procedures, 
PROCassemble, to assemble the machine 
code, and PROCdraw to place the shape 
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390 


DATA 7,60,63,40,42,0,0,0 


on the screen at а діуеп screen 
address. Although the data іп our 400 : 
program produces а bowl of ice cream, 1000 DEF PROCassemble 
you should be able to design your own 1010 DIM CODE 200 
shapes ав well. Тһе main program 1920 DIM data 127 
section also includes a loop (lines 150 1030 FOR PASS- 0 TO 3 STEP 3 
to 200) which will display this 1040 РФ-СОПЕ 
colourful shape іп а series of 1050 [ 
different positions on the screen. 1060 OPT PASS 
mn MR 1070 LDY #0 

1080 .1оор1 

1090 LDA data,Y 

1100 STA (&89),Y 

INY 


REM PROGRAM 8 

20 REM VERSION В1.4 

30 REM BEEBUG MARCH 1984 

40 REM AUTHOR DAVID FELL 

50 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 3 
100 PROCassemble 
110 FOR I=@ ТО 127 
120 READ data?I 
130 NEXT 
140 MODE 2 
150 FOR 1=&3000 ТО &7800 STEP 1920 
160 PROCdraw(I) 
170 PROCdraw(I+16@) 
180 PROCdraw(I+329) 
190 PROCdraw(I+489) 


200 NEXT 

210 PRINTTAB (0,30) 

220 END 

230 : 

240 DATA 0,0,0,0,0,0,0,5 

250 DATA 12,0,4,4,4,1,3,3 
260 DATA 0,8,4,1,1,3,7,7 

270 DATA 0,0,0,7,15,15,15,15 
280 DATA 0,0,15,7,15,15,7,15 
290 DATA 0,0,4,15,15,7,15,15 
300 DATA 0,0,0,10,15,15,15,7 
310 DATA 0,0,0,0,0,0,10,10 
320 DATA 15,60,63,20,21,0,0,0 


330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 


15,60,63,60,63,60,63,20 
15,60,63,60,63,60,63,60 
11,60,63,60,63,60,63,60 
15,60,63,60,63,60,63,60 
7,60,63,60,63,60,63,60 

15,60,63,60,63,60,63,40 
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1120 СРҮ #64 1200. STA &81 1280 | 2000 DEF. PROCdraw(P%) 
1130 BNE loop!) 1210 .1оор2 1290 МЕХТ 2010 !&80-P$ 

1140 СІС 1220 LDA data,Y © 1300 ENDPROC 2020 CALL CODE 

1150 LDA 680 1230 STA (&80),Y 1310: 2030 ENDPROC 

1160 ADC 4&40 — 1240 INY 

1170 STA 6880 1250 СРҮ #128 

1188 LDA 881 1260 BNE loop2 


1190 ADC 


PROBLEM WITH MASTERFILE USING AMCOM DFS 

On an Acorn DFS, if a file is opened with on OPENIN or OPENUP command, and the 
file does not exist, the channel number is returned as zero, and no error is 
generated. With the AMCOM DFS, zero is returned, and an error is generated. 

This anomaly causes problems with Masterfile, but has been corrected on later 
versions of the PACE DFS. On receipt of one of the older versions, PACE will upgrade 
the DFS free of charge to the A8639 version. 
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ROM CLASHES 


Several ROMs оп the market now have similar commands which may produce totally 
different actions. For example, *EDIT in the Watford DFS allows you to edit the disc 
sectors, in Disc Doctor it allows you to edit the function key definitions, апа іп 
BEEBUGSOFT's TOOLKIT it allows easy editing of a Basic program. If you have all 
three ROMs fitted in your machine at once, then the above command will be 
intercepted Бу the ROM in the highest numbered socket, which may not be the desired 
function. 

In BEEBUG Vol.2 No.8, it was suggested how any ROM may be turned off. However а 
partial answer to the problem would be to place TOOLKIT in a ROM socket of lower 
value than either of the other two. This is because all of TOOLKIT's commands may be 
preceeded with 'B', e.g. *BEDIT, uniquely defining TOOLKIT's editing facility. This 
teaves a conflict of commands between only two ROMs! 
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DFS QUIRKS 

With а 0.90 Acorn DFS it is possible to ask for a catalogue of a disc and obtain 
an incorrect result. Тһе best way to illustrate this is to insert an unformatted 
disc and type *CAT «return». While the disc is still spinning type *САТ return» 
again. The DFS will return with 'Disc error' and then execute the second *CAT 
command. Since the disc is still spinning the DFS assumes that it already knows the 
catalogue, and will print out а copy of the catalogue presently held in memory, 
which will be a blank directory for an unformatted disc. E 
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TRANSPARENT KEY DEFINITIONS - T.G.Ward | | | 

It is possible to load your definitions for the red function keys without 
corrupting a program which already exists in memory. This is acheived by *LOADing a 
set of definitions. into the function key buffer and will not interfere with any 
other parts of memory. The definitions will have been set up at an earlier stage 
using the usual Basic program, and, the buffer area from &В00 to &BFF is saved using 
*SAVE«name» В00 +100 where <name> is the filename for the function key definitions. 
[See BEEBUG Vol.1 No.4 for a more detailed explanation of function key use.] 
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Тһе OSBYTE call 187 сап be used to enter any lanuage using the *BASIC command 
The parameter placed in the X register is normally set to the correct position for 
the Basic ROM, but X can take any value from 0 to 15, and should be the desired 
language ROM. For example, if EXMON is placed in socket 12 with Basic in a higher 


. socket, *FX187,12 will cause the command *BASIC to enter EXMON. 


Can anybody think of a use for this? 
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TELETEXT MODE UPDATE 
Dear Sir, 

І quite like your magazine (I must, 
having subscribed for two years) and my 
only complaint is too many space 
invader type programs - even though I 
also find them quite addictive. 

The main point of this letter is to 
correct your article on Teletext Mode, 
where in Vol.2 No.6 says you cannot 
type in graphics characters directly 
from the keyboard. Rubbish! This can be 
achieved using Control and a Function- 
key. 

D.Taylor 
Reply: | 

R.T.Evans апа D.McMillan have also 
written similarly. I still believe that 
I was correct in the sense І intended. 
Using Control and a Function-key, you 
can then enter any Teletext Mode 
graphics control character as shown in 
the table below. Pressing any key for a 
lower case character will then display 
a graphics character on the screen. The 
problem is knowing which graphics 
character will result. If you want to 
produce a particular graphics character 
you will usually need to look this up 
in the User Guide, find its ASCII code, 
check which is the corresponding alpha 
character, and then press that key. 
This does not seem to me to be 
particularly simple or direct. 

The use of Control and a 
Function-key is shown in the table 
below. 


Function 


| Control & ASCII 


nil 

red graphics 
green graphics 
yellow graphics 
blue graphics 
magenta graphics 
cyan graphics 
white graphics 
conceal display 


contiguous graphics | 


Another point is that it is 
impossible for us to print Teletext 
control or graphics characters in the 
magazine, and thus we do not use these 


as such, preferring instead functions 
such ав  CHRS$ and STRINGS. By 
incorporating such Teletext control 


characters directly in the program, you 
can, for example, write programs with 
coloured REM statements. 


Finally, Desmond Walsham has also 
pointed out a small but vital omission 
in the procedure PROCline from the 4th 
part of the Teletext Mode series 


(BEEBUG Vol.2 No.8), where on page 23, 
line 1420 should read: 
1420 YDU31,x18-1 -y3,1454¢3 


MASTERFILE LIMITED BY WATFORD DFS 
Dear Sir, 

I thought you might be interested in 
my experience using the disc version of 
BEEBUG's Masterfile in conjunction with 
Watford Electronics DFS. 

I purchased Masterfile to handle a 
very extensive Church Membership Roll. 
The equipment I used was Watford DFS 
version 1.1 and Cumana's double-sided 
40/80 track twin disc drives. 

The file was to contain 400 records 
with a total file length of 123,600 
bytes. On trying to initialise this 
file, I found that errors occurred part 
way through record 212 and all of 
record 213. The message was "File not 
initialised beyond this point" and it 
then occurred to me that this point was 
just beyond 65,508 bytes. After some 
testing I began to suspect the DFS. 

І subsequently visited Watford and 
attempted to get my 1.1 version of the 
DFS replaced with the 1.3. After some 
argument I had to pay a further £3.45 
for the replacement. 

On trying to initialise my file 
using the new chip, І succeeded first 
time. The 1.1 version seems to have a 
"brainstorm" when extending a file 
beyond 65536 bytes (64K). 

І was most upset to have to pay yet 
more money for a workable version of 
the filing system but perhaps you could 
warn other members of this 
incompatibility and thus save them 
hours of typing. 

M.J.Herbert 
Reply: 
We have no further comment to add to Mr 
Herbert's letter though we would be 


‚ interested to hear any response from 


Watford Electronics. 
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PROBLEMS OF UPGRADING 0.5.1.1 TO dud 


PROBLEMS SLE eee 


Dear Sir, 


For some months now, my model B has 
been “hanging up" on me occasionally. 
Perhaps others might benefit from my 
eventual discovery that this was due to 
enlargement of the O.S. ROM socket, 
leading to intermittent 1055 of 
contact. 

I find it particularly annoying that 
this problem was caused by by the 0.5. 
153 issue ROM provided on a 
"piggy-back" board with large pins. As 
I see it, therefore, Acorn replaced an 
O.S. which was below specification with 
one that has caused physical damage to 
my computer! 

Iain Cameron 
Reply: 
—The position is unfortunately much 
as Iain Cameron describes. We would 
suggest two possible solutions, one to 
bend inwards slightly the pins of the 
O.S. 1.2 ROM so that the pins are 
sprung against the sides of the socket 
holes when inserted. Ме һауе always 
found that this solved the problem 
completely. Alternatively you could 
install an additional socket with 


larger size pins into the original 
position and then install the new ROM 
in that. 


THE MICRO GETS ІТ WRONG AGAIN! 
Dear Sir, 

I was rather surprised by the output 
of the following program: 

10 FOR Х=@ TO 2 

20 PRINT X. 

30 NEXT 

40 PRINT X 
I get 0, 1, 2, 3 displayed when I would 
have expected 0, 1, 2, 2. This (or а 
similar) routine incorporated in a 
program resulted in me spending an hour 
looking for a non-existent error. 1 
feel that other BBC micro owners May 
well benefit from this knowledge. 

Mark Fenton 


Reply: 

This shows how detailed is the 
knowledge that you need about even 
quite simple Basic instructions. In BBC 
Basic, а  FOR-NEXT loop initially sets 
the loop control variable (in this case 
X) to the starting value (here 0). The 
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instructions in the loop are then 
executed (always at least once) and the 
control variable incremented before 
comparing its new value with the 
terminating value. If the control 
variable exceeds this value, then the 
loop is terminated otherwise the 
process is repeated. If you follow this 
through for the example given you will 
see why the results produced are as 
they are. Unfortunately, versions of 
Basic on other micros might handle this 
situation differently, 50 it is 
something always to be checked with a 
new Basic. 


a eaaa 


BUT SERIOUSLY 


Dear Sir, 

I have been a subscriber since 
BEEBUG was a Бару. It is excellent 
value and the work you put in regarding 
the rectification of the bugs in the 
early BBC computers Was admirable. The 
games programs in the magazine and on 
your tapes are all excellent value for 
money. 

Games are all very well, but no 
matter how good they are some of us 
tire of them. I'm sure I'm not alone in 
this and would like something that 
would be useful in running а home. 
Perhaps а series of articles could be 
used to provide us with programs for 
home accounting and finance, or 
alternatively could you review some of 
the programs that are already 
available? 

You may wonder why don't write 
something myself but at 61 these new 
techniques do not come easy to the mind 
that was trained in steam radio. 

A.G.Campbell 
Reply: 

Mr Campbell and others who share his 
point of view will be pleased to know 
that we agree with his suggestions. We 
have made a start with the program for 
annual budgets іп this month's issue 
and we hope to publish more articles 
along these lines .in the future 
together with reviews of useful 
applications software. 
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: iM Wl д атна E oe - 
мел ELEVASION(32K) 
| бу D. J. Pilling 


In the January/February issue of BEEBUG we published a superb fast 


action game called 'Block Blitz', which was well received by BEEBUG 
readers. This month, the author of Block Blitz, D.J.Pilling, brings 


you 'Elevasion', a fast game of 
that's possible. 


Elevasion is a one player game, in 
which you control a man running left 
and right along a network of corridors, 
or going up and down in various lifts. 
The object of the game is to kill as 
many "'droids' ав possible by luring 
them under mines. When this happens, 
the droids are immoblised for a short 
time, allowing you to run underneath 
and kill them. If you fail to kill the 
droid, it will be released and come 
after you once again. If a second droid 
passes а droid that has already run 
into a mine, both droids will be 
released. 

If the man passes underneath a mine, 
he is halted for a few seconds - enough 
time for the droids to catch him. 


After five sheets of play, the mines 
will start to be replaced by 'blue 
cloners'. These have the terrifying 
effect of doubling a droid if it passes 
underneath. (i.e. there are now two 
droids instead of one). 


The game requires the use of four 
keys, Z and X for left and right 
respectively, while * and ? control the 
direction of the lift (although the 
lift does also work automatically). You 
will also find that if the man 
disappears off one side of the screen, 
he will reappear at the other. 


This is ап outstanding game, 
particularly for one written in Basic. 
We have tried to keep the length of the 
program ав reasonable as possible and 
hence the program listed does not 
display апу of the instructions on the 
Screen after the initial title page. 
The | version of Elevasion on this 
month's magazine cassette is the full 
version which includes two additional 
instructions 


Screen pages showing the 
described above, 


BEEBUG 


Skill which is 


10 
20 
30 
40 
50 
60 

100 
110 
120 
130 
140 
150 


А%(6), 


even better, if 


Т 


REM AUTHOR D.J.Pilling 

REM VERSION В1.0 

REM BEEBUG APRIL 1984 

REM PROGRAM SUBJECT TO COPYRIGHT 
ON ERROR GOTO 240 
MODE7:VDU23;11,0;0;0;0 

PROCFP 

MODE5: PROCCHAR 

DIM AS(1),B$ (1) ,CS (1) 

DIMX% (6) ,Y$(6) ,U$ (6) ,L% (6) ,D% (6), 
Bs (6) ,Z$(6) ,W3(6) ,13(6) ,P$ (6) ,US( 


6) ,D$(6) ,L$(1) ,RS (1) ,MS (1) ,A$330 


166 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
1000 
1010 
1020 
1030 
1040 
1050 


RINGS (28,CHRS24@) ; : NEXT: PRINTTAB (Ø 
TRINGS (19 ,CHR$240) ; 


April 1984 


PROCS 

REPEAT: PROCST 

REPEAT: PROCMA 

REPEAT: PROCL: PROCD: PROCM : UNTILOV3 
PROCG 

UNTIL ME$-0:PROCNXG 

UNTIL FALSE 


ON ERROR OFF 

MODE 7:IF ERR=17 END 

REPORT: PRINT " at line ";ERL 
END 


Ф 
ә 


DEFPROCMA 
CLS:CF$-FALSE:VDU23;11,0;0;0;0 
VDU19,3,6,0,0,0 

PROCRM : PROCGM 

COLOUR2 


FORIS$-3TO27STEP4: PRINTTAB (0,1%) ST 
ғ 


) 5 
31) 5 
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5(20, CHRS7) +СНВ50: МЕХТ 

1070 A$?166-0:COLOURI 

1080 FORI$-lTO6:FORJ$-U$ (1%) TOL% (I$) 

1090 IF (J%+1)MOD4= COLOUR] : PRINTTAB ( 
X% (19) -1,7%) CHRS252LBSCHR$253; :COLOURI 
ELSEPRINTTAB (X$ (1%) ‚1%)1В$; 

1102 K$-((J$41)DIVA-1) *214+AS+X3 (18) 

1110 ?К%-1%:МЕХТ:1%(1%)-й 

1120 PRINTTAB (X% (I2) ,Y$ (1%) ) L$; : NEXT 

1130 COLOUR3 

1140 FORI$-lTOND$ 

1150 PROCSA 

1160 ?H2-8:PRINTTAB (J%,K%*4+2) CHR$246; 

1170 А%(1%)-0%:В%(1%)-К%%4%2 

1180 Z% (1%) =AS+KS*21 :WS (13) =0 

1190 NEXT 

1200 ҒОВ1%-1ТОММ%: PROCSM: NEXT 

1210 IFNC%=@ENDPROC 

1220 COLOUR3 

1230 FORI$=1TONC% 

1240 PROCSA 

1250 ?H3=19: PRINTTAB (J$,K$*4) CHRS242; 

1260 NEXT 

1270 ENDPROC 


1290 DEFPROCSA 
1300 J%=RND(18) :KS=RND (7) :Н%=А%+7%+К%* 


1310 IF?H$ <>70R? (Н%- -21)<>ТОВ?(Н%%1)<>7 
OR? (Н%-1) <>7OR? (Н%-20) <>7OR? (Н%-22) <>7 
GOTO 300 

1320 ENDPROC 

1330 : 

1340 DEFPROCSM: PROCSA: ?H%=9:COLOURI : PR 
ІМТТАВ (J% ,K$*4) CHR$242; :COLOUR3: ENDPROC 

13590 1 

1360 DEFPROCRM 

1370 Х%-0:Ү%-1:М%-1:27%-А%:М%-ҒАҺ5Е 

1380 ENDPROC 

1390 s 

1400 DEFPROCGM 

1410 X%(1)=FNRX:U% (1) 23:L2$ (1) =U% (1) +4+ 
RND (4) *4 

1420 X%(2)=FNRX: IFX2 (2) =X% (1) GOTO1420 

1430 L%(2)=31:U% (2) =L3 (1) -RND (2) *4 

1440 FORI$-3TO6 

1450 X$ (I$) FNRX:K$-0 

1460 ЕОВ2%-1Т01%-1 

1470 ІЕХЅ (I2) «»X$ (J$) GOTO1490 

1480 IFK%=@K%=JZELSEK3=—1 

1490 NEXT 

1500 IFK%=Q@PROCNL: СОТО1 5560 

1510 ІЕК%--1С0Т01450 

1520 0%(1%)-0%(К%)-3: L2(I$ )231-L$ (K3) 

1530 IFUZ(I£)«12ANDL$ (I2) <1 2GOTO1 450 

1540 IFU% (15) <L%3 (1%) PROCNB ELSE PROCNT 

1550 NEXT 

1560 FORIS$=1T06:US (1%) =MD$:DS (1%) =MDS: 
US (1%) =LUS: DS (I2) =LDS:D% (1%) =RND (2) - -1:Ү 
(I$) = (0% (1%) +L3 (1%) )/2: NEXT 
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35 


1580 : 

1590 DEFPROCNL 

1600 0%(1% )=-1+RND (5) *4: LS (1%) =U3 (1%) + 
8+4*RND (3) : IFL% (I2) >31L3 (I2) =31 

1610 ENDPROC 

1620 : 

1630 DEFPROCNT 

1640 05 (1%) =—1+ВМ№р (2) *4:1.5 (1S) =0% (13) + 
4+RND (2) *4 

1650 IFL% (1%) >=U% (KS) СОТО1640 

1660 ENDPROC 

1670 : 

1680 DEFPROCNB 

1690 L2 (1%) =35—RND (2) *4:U$ (I2) -L$ (I$) - 
4—-4*RND (2) 

1700 ІЕ0%(1%)<-І,%(К%)С0Т01690 

1710 ENDPROC 

1720 : 

1730 DEFFNRX-4*RND(5)-3 

1749 : 

1750 DEFPROCL 

1760 COLOUR] 

-1770 FORI$-1TO6 

1780 IFD$(I$)GOTO18160 

1790 PRINTTAB (X2 (I2) , Y$ (I2) JUS (I2) ; : Y$( 
1%) =Ү$ (I2) -2: IPY2 (1%) =0% (1%) D$ (I2) - TRUE 
1800 NEXT:ENDPROC 

1810 PRINTTAB (X2 (I$) , Y$ (I$) )DS (I2) ; : Y$ 
(15) =Ү$ (I2) +2: IFY$ (1%) =L3 (I2) D$ (13) =FAL 
SE 

1820 NEXT: ENDPROC 

1830 : 

1840 DEFPROCCHAR 

1850 \DU23, 248,255,129, 255,129,66, 36,2 
4,255 

1860 VDU23,241,255,255,255,0,0,0,0,0 
1870 VDU23,242,255,255,60,24,24,90,066, 
66 

1880 VDU23,243,60,90,126,60,36,126,255 
,189 

1890 VDU23,244,189,189,60,36,36,36,100 
6 

ғ 

1900 VDU23,245,189,189,60,36,36,36,38, 
96 l 

1910 VDU23,246,195,66,126,219,219,126, 
66,195 

1920 VDU23,247,66,66,231 ,66,66,231,66, 
66 

1930 VDU23,248,204,51,204,51,204,51,20 
4,51 | 
1940 VDU23,252,255,255,255,224,224,224 
,224,224 
1950-VDU23,253,2555,255,2959,4 7) 4] 131 
1960 VDU23,224,28,48,62,20,28,60,126,1 
89 

1978 VDU23,225,189,60,24,24,56,104,200 
,76 


1988 VDU23,226,189,60,24,24,28,23,18,24 
1999 VDU23,227,189,60,24,24,28,23,18,48 
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88 

2010 VDU23,229,28,6,62,20,28,60,126,189 
2020 VDU23,230,102,66,126,219,219,126, 
66,102 

2030 ЕМУЕГОРЕ1,1,-15,-15,-15,23й0,230,2 
30,30,5,0,-10,126,126 

2040 ENVELOPE2,3,0,1,0,0,255,0,127,0,0 
,-127,126,126 

2050 ENVELOPE3,3,0,0,0,0,255,0,127,0,0 
,-127,126,126 

2060 ЕМУЕГОРЕ4,1,-50,-50,-50,20,-20,20 
,20,4,0,-5,120,110 

2070 ENVELOPE5,1,6,0,—-6,200,100,200,10 
0,2,0,-1,120,110 

2080 ENDPROC 

20908 : 

2100 DEFPROCS 

2110 TES-CHRS$1904CHRS84CHRS8 

2120 ETS-CHRS84CHRS!0:EES-CHRS84CHRSI] 
2130 EGS=CHRS11+CHRS8 : RS=CHRS17+CHRS1 
2140 YS=CHRS17+CHRS2:WS=CHRS17+CHRS3 
2150 BS=CHRS32+CHRS1 @+CHRS8+CHRS$32 
2160 LS=CHRS241 : LBS=CHRS32 

2170 LUS=LBS+CHRS$11+EGS+LS° 

2180 LDS=LBS+CHRS1G+CHRS1 8+CHRS8+LS 
2190 MUS=LBS+EGS+LBS+EES+LS+EES+RS+CHR 
$244+YS+EES+CHRS243+RS 

2200 MDS=LBS+YS+EES+CHRS11+LBS+ETS+LBS 
+ETS+CHRS243+ETS+RS+CHRS244+ETS+RS+LS 
2210 TPS=YS+CHRS8+CHRS229+LBS+TES+RS:L 
S (0) =TPS+CHRS227+LBS : LS (1) =TPS+CHRS228+ 
LBS 

2220 TPS=YS+LBS+CHRS$224+TES+LBS+RS : RS ( 
0) -TPS4CHRS225: RS (1) =TPS+CHRS226 

2230 TPS=YS+CHRS243+CHRS 1 G+CHRS8+RS :MS 
(0) =TPS+CHRS244:MS (1) =TPS+CHRS245 

2240 AS (@)=CHRS8+CHRS246+LBS 

2250 AS (1) =CHRS8+CHRS$230+LBS 

2260 BS (0) =LBS+CHRS246 

2270 BS(1)=LBS+CHRS23d 

2280 CS (0) =CHRS246:CS (1) -СНК5230 

2290 PS=AS (0) :SS=BS (0) sCS=CS (0) 

2300 DUS=LBS+EGS+LBS+EES+LS+EES+WS+CHR 
S246+RS . 

2310 DDS=LBS+WS+EES+LBS+ETS+CHRS1 Ø+CHR 
S246+ETS+RS+LS 

2320 CHS=RS+CHRS42+YS+CHRS42+WS+CHRS42 
2330 CVS=YS+CHRS42+ETS+RS+CHRS42+ETS+W 
S+CHRS42+ETS 

2340 ?А%-0:А%-А%Ғ1 

2350 Н5С%-0:М5-"ООЕ ZERO" 

2360 ENDPROC 

2370 : 

2380 DEFPROCM 

2385 FOR МУ%-1Т0500:МЕХТ 

2390 ІЕМ%С0Т02480 

2400 IFM% М%-0ЕІ5ЕМ%-1 

2410 P$-Z$4X$:IF?P$»7PROCE2: ENDPROC 


2420 IFINKEY-67GOTO2440ELSEIFINKEY-98G 
0702460 
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2430 PRINTTAB (X2, Y2) MS (M3) : ENDPROC 
2440 IFP%?1>6PRINTTAB (X2,Y2$) RS (M3) :X2- 
$+1ELSELS=P%3?1 2 PROCEN 
2450 ENDPROC 
2460 IFP%?-1>6PRINTTAB (X2 , Y$) LS (M2) 2X3 
-X$-lELSELZzPZ?-1:PROCEN 

2470 ENDPROC 

2480 IFW$«0GOTO2550 

2490 IFINKEY-67 TX$-1:PROCEX:ENDPROC 
2500 IFINKEY-98 TX£--1:PROCEX:ENDPROC 
2510 Ү%-У%(1,%) 

2520 IFINKEY-73D$(L$)-0 ELSEIFINKEY-10 
50% (1%) =1 ELSEENDPROC 

2530 IFY% (1.%) =U% (1%) D3 (1%) =TRUE ELSEIF 
Y$ (L3) =L? (L2) 0% (L2) =FALSE 

2540 ENDPROC 

2550 W$-W$-l:IFW£-0:PROCSM 

2560 ENDPROC 

2570 : 

2580 DEFPROCEN 

2590 IFL£-0GOTO2660 

2600 IFY% (LS) <>Y3+2ORIZ% (L2) PRINTTAB (X% 
; Y$) MS (MZ) : ENDPROC 

2610 500М01,2,100,2:РБКІМТТАВ(Х%,Ү%)В5 
2620 05 (1$) =MUS:DS (1,5) =МО$:Х%=Х% (1%) 
2630 PRINTTAB (X%,Y3)MS (M2) 

2640 WS=1 21% (1%) =9 

2658 ENDPROC 

2660 IFXS$-OPRINTTAB (0, Y3) BS: X3=19+ (Y2- 
29) : PRINTTAB (X$ , Y$) MS (M2) : ENDPROC 

2670 ІЕХ%>17 РБІМТТАВ(Х%,Ү%)В5:Х%-0:РЕ 
ІМТТАВ(Х%,Ү%)М5(М%) : ENDPROC 

2680 PRINTTAB (X2, Y?) MS (MZ) 

2690 ENDPROC 

2700 : 

2710 DEFPROCEX 

2720 IF(Y%(L%3)+1)MOD4=@ELSEENDPROC 
2730 SOUND1,2,200,2 

2740 US(L%) =LUS:DS (L%) =LDS :W%=FALSE 
2750 1%(1%)=@ 

2760 Y%=Y% (L$)-2:2Z2$-((Y$ (L$) +1) DIV4—1) 
*21+А% 

2770 PRINTTAB (X2,Y2) B8: X$-X2--TX$ 

2780 PRINTTAB (X2 , Y?) MS (M$) : ENDPROC 
2790 : 

2800 DEFPROCD 

2810 IFES E%=ØELSEE%= 

2820 Р5-А5(Е%):55-В5(Е%) :С5=С5 (E2) 
2830 COLOUR3 

2840 FORD$-1TO5 

2850 IFDS>ND%: PROCDT (0) sNEXT: ENDPROC 
2860 IFW (0%) СОТ02940 

2870 US=A% (DS) 2У%-7%(0%)-0%:5%-В%(р%) 
2880 IFSS=Y%3+1P% (DS) =US<X%33 IFUS=XSNEXT 
2 ENDPROC 

2890 IFP% (0%) GOTO292¢ 

2900 IFV$?-l»6ELSET2zV2?-1:PROCDE:NEXT 
2 ENDPROC 

2910 ?V$-7:PRINTTAB (U%,S%) PS: A2 (DS) -US 
-1:1ІҒУ%?-1<9У%?-1-8:МЕХТ:ЕМОРВОС ELSEPR 
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2920 ТЕ\%?1>ЄЕГСЕТ%=\%?1:РЕОСОЕ:МЕХТ:Е 


NDPROC 

2930 2V%=72: PRINTTAB (US, S%) SS:A% (0%) =U% 
41:1ҒУ%21<9У%21-8:МЕХТ: ENDPROC ELSEPROC 
ЕІР:МЕХТ: ENDPROC 

2940 IFW$(D$)«0GOTO3020 

2950 Е%=Ү%-Ү% (WZ (DS) ) +2 

2960 IFR%=@PROCDX: NEXT: ENDPROC 

2970 ІЕВ%<0С0Т03000 

2980 IFNOTD$ (W$ (D$) ) PROCDX 

2990 NEXT: ENDPROC 

3000 IFD$(W$ (DS) ) PROCDX 

3010 NEXT: ENDPROC 

3020 W% (0%) =W3 (0%) +1 

3030 IFW% (0%) =@PROCRE: SOUND3, 5,200,198 
3040 NEXT: ENDPROC 

3050 : 

3060 DEFPROCDE 

3070 ІЕ5%-Ү%(Т%)-1ЕІ5ЕІЕТ%-0Р%(0%) =NOT 
P$ (D$) : ENDPROC ELSEPRINTTAB (US, S2) C$: EN 
DPROC 

3080 IFS£-1-zU$ (T$)ORS2-41-2L2 (T$) GOTO3130 
3090 ІЕҮ%<-5%С0Т03120 

3100 IFNOTD$ (T$) ENDPROC 

3110 GOTO3139 

3120 IFD% (T$) ENDPROC 

3130 ІЕІ%(Т%) ENDPROC 

3140 ?V$- 

3150 SOUND1, 2, 190,22 PRINTTAB (0%, %) LBS 
3160 US (T£) =DUS: DS (TS) =DDS 3 A% (D$) =X% (T 
3) 

3170 PRINTTAB (А%(0%) ,5%)С5 

3180 WS (0%) =TS:3 I% (TS) =0% 

3194 ENDPROC 

3200 : 

3210 DEFPROCDX 

3220 ІЕ (ҮЗ (W% (D$) ) +1) MOD4=@ELSEENDPROC 
3230 SOUND1,2,200,2 

3240 T£-W$ (0%) :W% (0%) =Ø: I% (T 
3250 US(T$) -LUS:D$ (T$) =LDS:B 
$)-1 

3260 PRINTTAB (A% (0%) ,В% (D$) ) LBS 

3270 IFY%=B% (D$)-1 P2 (0%) -А% (0%) <Х% 
3280 ІЕР%(0%) A$(D$ ) zA$ (D$ )*tl1ELSEA? (D$ 
) =AZ (DS) -1 

3290 PRINTTAB (A 
3300 25 (0%) - ((Y 
(2% (D$) +A% (D$) ) = 
3310 ENDPROC 

3320 : 

3330 DEFPROCEIM 

3340 0%-0%-1 queues GOTO3380 

3350 : 

3360 DEFPROCEIP 

3370 US=US+1 sVZ=VSt1 

3380 ТІЕ?У%-10СЕФ-ТЕОЕ 

3390 IF?V2»10 EX%=D%:D%=?V3-19:SOUND1, 
1,208, 18: PROCRE:D$-EX$:A$ (D$) =A% (D$) +1: 
?V£z8:ENDPROC 

3400 ?V$-2104-D$:SOUND1,1,200,10: SOUNDI , 

5,200,10:500М02,2,200,30 


(T 


$ (D$) ,B$ (D$) ) CS (Es) 
(T$) +1) DIV4-1) *214A$:? 
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3410 FOREX$-lTO U ЭМОр4 

3420 РЮКІМТТАВ(0%,В%(0%));:У00246,8,11, 
247,8,11,242 
3430 МЕХТ 
3440 ТЕСЕЗРКОССІ.: ENDPROC 
3450 COLOUR2:PRINTTAB (0%,В% (0%) -2) CHR$ 
246:COLOUR3:W$ (0%) --50 
3460 ENDPROC 
3470 : 

3480 DEFPROCEA:IFD$-ND$GOTO3500ELSEAS$ ( 
D%) =A% (NDS) : B$ (0%) =B% (ND2) :W$ (0%) -W$ (ND 
$) :2$ (DS) -2% (NDZ) 

3490 IFW%(ND%)<@ ?(Z% (ND%) “А%(М0%))-10 
0% 

3500 ND$-ND$-1:D$-9:DD$-DD$-*1: IFND$-00 
V$-TRUE 

3510 ENDPROC 

3520 : 


3530 DEFPROCRE:PRINTTAB (A$ (D2) ,B% (0%) - 
2) LBS: :VDU8,10,10,246:W$ (0%) =Ø: PROCSM:E 
NDPROC 

3540 : 


3559 DEFPROCER:D$-?P£-10:?P$-7:COLOURI 
: PRINTTAB (A2 (D2) ,B% (D$) -2) CHR$246:COLOU 
R3: PROCEA: SOUND@ , 3,6, 20: ENDPROC 

3560 : 

3570 DEFPROCE2 

3580 IF?PZ»l10PROCER:ENDPROC 

3590 IF?P2»58W2--20:?P9-7:PRINTTAB (X$,Y 

$-1)LBS:SOUNDI1 , 4,200 , 20: ENDPROC 

3600 SOUNDI ,4,2@0, 28: PROCDT (25) 

3610 PRINTTAB ( %,Ү%) CHRS248: PRINTTAB (X 
%,Y%+1)CHRS248: PROCDT (35) : PRINTTAB (Х%,Ү 
$)BS 

3620 MES=ME3-1 :00%=рр%+1 s OVZ=TRUE 

3630 ENDPROC 

3640: 

3650 DEFPROCDT (I2): T-TIME: REPEATUNTILT 
IME»T-I2:ENDPROC 

3660 : 

3670 DEFPROCG 

3680 CLS:SC£-SC24250-200*DD$ 

3690 IFSCZDIV2000«»5BC$ MES=MES+1 

3700 IFME3=QENDPROC 

3710 VDU19,3,2,0,0,0 

3720 PRINTTAB(1,1)STRINGS (6,СН5) TAB(@, 
1) STRINGS (10, CVS) TAB(19, 1) STRINGS (10,CV 
5) ТАВ(0, 30) YS+CHRS42+STRINGS (6, CHS) +¥S+ 
CHRS42; 

3730 PRINTTAB(5, 2) YS*" ELEVASION" TAB (4, 
4) "SCORE BOARD"TAB (4, 6)"FOR SHEET ";G$; 
ТАВ(1, 7) STRINGS (6, CHS) ; 

3740 PRINTTAB(2,9)"YOUR SCORE ";5С% 

3750 PRINTTAB(2,11)"HIGH SCORE "; *HSC% 

3760 PRINTTAB (2,14) RS"DROIDS DESTROYED" 

3770 X%=DD%S2 IFX%>8 X$- 

3780 PRINTTAB (2,16) STRINGS (X$, CHR$2464 
CHRS9) 

3790 PRINTTAB (2,20) YS"MEN LEFT" 

3800 Х%-МЕ%:ІЕХ%>8 X$- 
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3810 PRINTTAB (2,22) STRINGS (X% 
RS114CHR$9) ; 

3820 Х%- 

3830 IFSCSDIV2080<>BCZANDX$=1 PRINTTAB ( 
2,25) YS"BONUS MAN" ELSEPRINTTAB (2,25) SP 
С(10) | 

3840 PRINTTAB(1,28)RS"RETURN ТО CONTIN 


UE" 
3850 IPINKEY-74GOTO3870 


3860 ІЕТІМЕ МОр15=0 Х%-ХФЕОРВ1:С0Т03830 

ELSEGOTO38560 

3870 VDU19,3,6,0,0,0:0VZ-FALSE 

3880 G$-G$4-1:DD$-0:BC$-SC2DIV2000 

3890 IFG$«-5GOTO3930 

3900 $-G$-5:IFND£»5ND£-5 

3910 МС%-С%-5:ІЕМС%>8КС%-8 

3920 ММ%=2+МО%:ЕМОРЕОС 

3930 ND%=G%3 :NM%=2+ND% 

3940 ENDPROC © 

3950 : 

3960 DEFPROCST 

3970 С%-1:М0%-1: ш 
3:ОУ%-ҒАП,5Е:5С%-0:ВС%Ф 

3980 ENDPROC 

3990: 

4000 DEFPROCCL 

4010 CF$-FALSE:SOUND!,4,200,20 

4020 IFND$-5ENDPROC Zi 

4030 NDZzND$-1:PROCSM 

4040 A% (ND?) =A% (0%) +1 BS (NDZ) -B2 (D2) :Z 
$ (ND) =7% (D3) :W$ (ND2) =Ø 

4050 ENDPROC 

40060 : 

4070 DEFPROCNXG 

4080 CLS:VDU19,3,2,0,0,0 

4090 PRINTTAB (1,1) STRINGS (6,CHS) ТАВ (0, 
1) STRINGS (19,CVS) TAB (19, 1) STRINGS (10,CV 
5) TAB (0, 30) YS+CHRS$42+STRINGS (6 ,CHS) *YS4 
CHRS42; 


RECYLING PRINTER RIBBONS - R. Skemp 


(0) +СН ШШЕ 


4100 PRINTTAB (5, 2) YS+"ELEVASION" TAB (4, 
4)"GAME  OVER";TAB(1,5) STRINGS (6,CHS) ; 
4110 PRINTTAB(3,7)"THE HISCORE WAS"TAB 

(8,9) HSCS TAB(3,11)"BY "NS 

4120 PRINTTAB(3,14)YS"YOUR SCORE WAS " 
TAB (8,16) ; SC2 

4130 IFSC$«-HSC$ GOTO4240 

4140 PRINTTAB(3,18) "THE NEW HISCORE" 

4150 PRINTTAB(3,21)RS"ENTER YOUR NAME" 

4160 *FX21,0 

4170 PRINTTAB (3,23) "-—»"Y$; 

4180 №="":ВЕРЕАТ ІК-СЕТ 

4190 IFIK-13GOTO4220 

4200 IFIK=127ANDLENNS<>@PRINTCHRSIK; :N 
S=LEFTS (NS, LENNS-1) 2С0Т04220 ELSEIFIK=1 
27 С0Т04220 

4210 NS=NS+CHRSIK: PRINTCHRSIK; 

4220 UNTIL IK=130R LENNS=12 

4230 Н5С%-5С% 

4240 PRINTTAB(4,26)RS"PRESS RETURN" TAB 
(2,28)"FOR ANOTHER GAME"; :PROCDT (100) : К 
EPEAT UNTILINKEY-74 

4250 ENDPROC 

4260 : 

4270 DEFPROCFP 

4280 CLS:FORA-2TO3:PRINTTAB (12,A)CHRS1 
41;CHRS13Q"ELEVASION":NEXT 
4290 PRINTTAB (16,12) ;CHRS134"by" 

4300 PRINTTAB(12,14)CHRS$134"D.J.Pillin 

n 

4310 PRINTTAB (8,20) "Press any key to s 
tart." 

4320 G-GET:CLS 
4330 ENDPROC 


When you think that your printer ribbon has come to the end of its useful life, 


do not throw it away immediately, 


motoring shops!) 


EPSON SCREEN DUMP UPDATE - A.Wilmshurst 

The Epson 8-tone screen dump on the Vol.2 No.4 magazine cassette prints tones 
corresponding to the logical colours on the screen and not the actual colours, 
causing problems if the pallette is changed. The program may be altered to print 
actual colours as follows: 
580 LDA #&B:LDX #(osblock+4) MOD 256:LDY #(osblock+4) DIV 256:JSR osword:PLA: TAX: LDA 


osblock+5:AND #7:STA point,X É 


BEEBUG 


and leaving overnight. He has tried it on an 
result appears to be the same as replacing with.a new ribbon. 


The resulting program should be *SAVEd from &2A00 to &2BD4. 
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because Richard Skemp suggests prising the lid off 
the cartridge, lightly spraying the ribbon with  WD-40 


(available from all good 
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Have you ever wondered how top dart players such as Eric Bristow and 


DARTBOARD(32K) 
by J. Crombie 


Jocky Wilson reach the heights of perfection when they play? Well, 
BEEBUG provides one answer, would you believe, with a program that 
will help you play better than ever before, and maybe score that 


fabulous one hundred and eighty! 


Dartboard is a game for two players 
(though you can easily take both parts 
if you wish) using either the keyboard 
or joysticks to control your aim. If 
you choose to use joysticks then you 
may still use the keyboard for fine 
adjustments. 


This is the traditional game of 
darts where each player takes turns to 
throw three darts to reduce his score 
down from the starting value of 501, 
finishing on a double or a 'Bulls-eye'. 


You may use either a joystick or the 
keyboard (selected at the start of the 
match) to aim a dart before pressing a 
number key (1 to 9) to throw the dart 
and to select the relative strength-ef 
the throw, 1 being the weakest and 9 
being the strongest. 


The keys for controlling direction 
are 'Z' and 'X' for left and right, and 
'*' and '?' for up and down. 


As you throw your darts the computer 
will automatically count up the total 
of your three darts and display your 
required score at the right-hand side 
of the screen. 


When a game has finished you can 
choose either to play another game or, 
by pressing Return, to see the result 
of the match displayed on the screen. 


PROGRAM NOTES 
The program is quite well structured 
using a number of clearly named 
procedures to do most of the work. 
These procedures are listed below with 
a brief description of the function of 
each. 
1000 PROCboard Draws dartboard on 
screen. 
Draws one sector 
of the dartboard. 


1180 PROCsector 
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1270 PROOmovesight Moves target point 
for dart using 
joystick or 
keyboard. 

Throws dart. 


Calculates dart 


1490 PROCdart 
1590 PROCtotal 


Score. 

1730 PROCremovedarts Removes darts from 
board. 

1810 PROCendgame Displays match 
result. 


1940 PROCkeyorjoy Displays front 
page and selects 
joystick or 
keyboard control. 
Initialise sound 
envelopes, user- 
defined characters 


and variables. 


2070 PROCinit 


The main program loop is from line 
180 to 310 which is repeated until one 
player is the winner. 


10 REM PROGRAM DARTS 
20 REM AUTHOR J.Crombie 

30 REM VERSION В1.0 

40 REM BEEBUG APRIL 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 ON ERROR GOTO 2120 
110 MODE7: PROCkeyor joy 
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ВЕЕВОС 


40 


DX% (3) ,DY$ (3) ,game% (2) 

130 PROCinit 

140 PROCboard 

15@ REPEAT 

160 COLOUR@: PRINT"PLR1 
1" 

170 COLOUR3:VDU28,30,31,39,1 

180 REPEAT 

190 TIME=@: Player%=Player%+1 

200 ТЕ PlayerS=3 Player$-l 

210 sum3=8:dart3=1 

220 REPEAT 

230 winner%=FALSE 

240 PROCmovesight (dart) 

250 IF SUM(Player%)=sum% AND double%= 
1 THEN winner%=TRUE:GOTO319 

260 IF SUM(Player%)-sum%<2 THEN VDU4: 
PRINTTAB(6*(Player$-1)41);"---  ";::VDU5 
: PROCremovedarts (dart) :winner%=TRUE:GO 
TO31 à 

270 dart$-dart$?-41 

280 UNTIL dart%>3 

290 PROCremovedarts (3) 

300 SUM(Player$)-SUM(Player$£)-sum$:VD 
U4: PRINTTAB (6* (Player$-1)41);SUM(Player 
$) ;SPC(2) ; :VDU5 

310 UNTIL winners 

320 VDUA:SOUNDI,1,50,1:PRINT''* 8!" у 
INNER Player";Player$'''''''''':gam 
e$ (Player%) =game% (Player%) +1 

330 PRINT" PRESS KEY " 

340 A=GET: IF A=13 PROCendgame: END 

350 IF dart$-4 THEN PROCremovedarts (3 
) ELSE PROCremovedarts (dart) 

360 VDU28,30,31,39,0,12:Player$-2:SUM 
(1) 5501: SUM(2)-501 

370 UNTIL FALSE 

380 END . 

390 : 

1000 DEF PROCboard 

1010 FORIZ=1 ТО 20 

1020 РВОСѕЅесіок (1%,3,500, 500,406) 

1030 PROCsector(I$,3*(I$ MOD 2) 500,50 
0,400) 

1040 PROCsector (1%, 3* (АВЅ ((1% MOD 2)-1 
)),500,500,365) 

1050 PROCsector(I$,3*(I$ MOD 2),500,50 
0,225) 

1060 PROCsector(I$,3*(ABS((I$ MOD 2)-1 
)).,500,500,200) 

1070 NEXT 

1080 FOR I$-1 TO 20:PROCSsector(I$2,0,5 
0,500,409) :zPROCsector (I2,1,500,500,15): 
EXT 

1090 FOR 1%=1 TO 20 | 

1100 МОУЕ450%5ІМ(ВАр(18%1%-16)) “471,44 


PLR2 501 50 


0 
N 


0%С05 (RAD (18*1 3-16) )+5@9:READ AS: РКІМТА $ 


1110 GCOLG, 2:MOVE430+1%, 1900+1%: PRINT" 
DARTS": GCOLG@, 1 


120 MODE1:VDU5:DIM SCORES (2G) ,SUM(2), 1120 NEXT 


1130 GCOLG, 8:MOVE430+1%, 1G00+1%: PRINT" 
DARTS" 

1140 RESTORE:FOR I%=1 ТО 20:READ SCORE 
$ (IS) :NEXT 

1150 VDU4,28,30,31,39,0,19,2,4,0,0,0:C 
OLOUR1 30:СІ,5 

1160 ENDPROC 

1170 : 

11860 DEFPROCsector (N$,C$,X2,Y£2,52) 

1190 GCOLO0,C$ 

1200 МОУЕХ%,Ү% 

1218 MOVE S@*SIN (RAD (18* (N2-1) -9) ) X2, 

S$*COS (RAD (18* (N$-1) -9) ) +ү$ 

1220 PLOT85,S$*SIN(RAD(18*N2-9) ) +X3,S% 
*COS (RAD (18*N2-9) ) +Y% 

1230 ENDPROC 

1240 : 

1250 DATA 20,1,18,4,13,6,10,15,2,17,3, 
19,7,1058511,14,9,12,5 

1260 : 

1270 DEFPROCmovesight (dartno$) 

1280 VDU5:F£-0 

1290 C$-A2:D£-B$ 

1300 IF kb% GOTO 1350 

1310 IF ADVAL(2* (Player%$-1)+1)>5000@0 А 
%-А%-4 

1320 IF ADVAL(2*(Player$-1)42)«8000 B% 
=B3-4 

1330 IF ADVAL(2*(Player$-1)41)«8000 A% 
=AS+4 

1340 IF ADVAL(2* (Player%-1)+2)>50000 В 
%-В%-4 

1350 ІЕ ІМКЕҮ-98 А%-А%-4 

1360 IF INKEY-67 A%=A%+4 

1370 IF INKEY-73 B%=B3+4 

1380 IF INKEY-105 В%-В%-4 

1390 IF А%<0 А%-0 ELSE IF А$>900 АҮ%-90 
0 

1400 IF 
0 

1410 IF ТІМЕ>300 GOTO 1440 

1420 *FX15,1 

1430 GOTO1450 

1440 ?602=32:КЕҮ$=ІМКЕҮ (0) :ІЕ KEY%>48 
AND КЕҮ%<58 THEN GCOL3, 2:MOVEC% ,D%:VDU2 
24: PROCdart (A%,B%,dartno%) : ENDPROC 

1450 GCOL3,2:IF F%=1 MOVECS,D%:VDU224 

1460 Е%-1 sMOVEAS ,BS:VDU224 

1470 С0Т01290 

1489 : 

1490 DEFPROCdart (X%,Y%,dartno) 

1500 GCOL3,1 

1510 X%=X3+16+RND (32* (KEY$-&30) ) -8* (KE 
Y$-&30) : Y$zY$-12-*RND (32* (KEY$-&39) ) -8*( 
KEY2-&30)-12* (&3A-KEY2) 

1520 MOVEX2-20,Y$-20: DRAWX3+20 , Y3+20 

1530 MOVEX%-2@ , Y3+20 3 DRAWX%3+2@ , Y3-20 

1540 DX% (dartno) =X%:DY% (dar tno) =Y% 

1550 500М00,-15,5,1 


B$«0 B$-0 ELSE IF В%>900 В%-90 
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1560 PROCtotal (X$,Y2) 

1570 ENDPROC 

1588 : 

1590 DEFPROCtotal (X2, Y£). 

1600 IFY£-500 Y$-499-RND (2) 

1610 ANGLES=DEGATN ( (Х5-500) /(Ү%-500)): 
radius%=SOR ( (X%-58@) ^24 (Y$-500) ^2) 

1620 IF Ү%-500<0 THEN ANGLES=ANGLES+18 
0 ELSE IF ANGLE2«-9 THEN ANGLE3=ANGLES+ 
360 

1630 SECZ-(ANGLE249)/18 

1640 DARTSCORES=SCORES (SEC$41) :double$ 
=@ 

1650 IF radius2«406 AND radius%>365 ТН 
ЕМ DARTSCOREZ2-DARTSCORES$*2:double$-1 

1660 IF radius2»200 AND radius%<225 TH 
EN DARTSCORE%=DARTSCORES* 3 

1670 IF radius%>14 AND radius$«440 THEN 

DARTSCORE3=25 

1680 IF radius2«15 THEN DARTSCORES=5@: 
double$£-1 

1690 IF radius2»406 THEN DARTSCORE$-0 

1700 sum%=sum$+DARTSCORE%S 

1710 ENDPROC 

1720 : 

1730 DEF PROCremovedarts (dartno?) 

1740 GCOL3, | 

1758 FORI%=1 TO dartno% 

1760 MOVEDX% (I2)-20,DY$ (1%) -20: DRAWDX% 
(15) +28 ,DY% (I2) +20 

1770 MOVEDX$ (I2)-20,DY$ (I2) +20: DRAWDX% 
(I$) 4*20,DY$ (I$) -20 

1780 NEXT 

1790 ENDPROC 

1800 : 

1810 DEFPROCendgame 

1820 VDU22,7 

1830 Үр0133,157,13,10 

1840 VDU132,157,131,141:PRINTTAB (12) ;" 
DARTS" 

1850 VDU132,157,131,141:PRINTTAB (12) ;" 
DARTS" 

1860 VDU133,157,13,10 


1870 SOUND1,1,20,1:S0UND2,1,32,1: SOUND 


3,1,44,1 


DISC UPGRADE FOR MODEL A MICROS - P.Ireland 


1880 PRINTTAB(5,12);"Player | has won 
"game? (1) ;" games" 

1890 PRINTTAB (5,14); "Player 2 has won 
"game (2) ;" games" 

1900 IF game%(1)=game%s (2) THEN PRINTTA 
B(1,20);"I therefore declare the contes 
t a draw"'':ENDPROC 

1910 РВІМТТАВ (1,20) ; "І therefore decla 
re the winner ";:IF games (1) >датеѕ (2) T 
НЕМ PRINT"Player 1" ELSE РВІМТ"Р1ауеү 2 
и 


1920 ENDPROC 

1930 3 

1940 DEFPROCkeyor joy 

1950 VDU23;11,0;0;0;0 

1960 ЕОВА-2Т03:РВІМТТАВ(11,А)СНВ5141;С 
HRS$131"Dar tboard" : NEXT 

1970 PRINTTAB (11,6)CHRS134"by J.Crombi 
е" 

1980 PRINTTAB(9,12)CHRS13@"Are you pla 
ying"! ' ТАВ (10) CHR$1 30" from"'CHRS1 33"K"CH 
RS13@"eyboard" 

1990 PRINTTAB (12) CHRS$1 38"or"CHRS$133"J" 
CHRS138"oystick" 

2000 REPEAT: VDU7 

2010 PRINTTAB (15,17) CHRS131"?"CHRS1 32 

2020 2?602=32:GS=GETS: PRINTTAB (19,17)GS$ 

2030 UNTIL GS="K" OR GS="J" 

2040 IF GS="K" kb%=TRUE ELSE kb$-FALSE 

2050 ENDPROC 

2060: 

2070 DEFPROCinit 

2080 ENVELOPE 1,149,20,-10,0,5,1,5,126 
,2,0,-7,126,1009 

2090 VDU23,224,8,8,8,255,8,8,8,8 
0:В%-500:50М(1)-501:50М(2) -501:0$ 
yer$-2:game$(1)-0:game$(2)-0 

2100 ENDPROC 

2110 : 

2120 ON ERROR OFF 

2130 MODE 7 

2140 IF ERR-17 END 

2150 REPORT:PRINT" at line ";ERL 

2160 END 


:A$-50 
-ü:Pla 


If you intend to upgrade a model A BBC micro to include a disc interface, without 


using an official upgrade, 


then do not forget to add IC77 (741500) for the disc 


upgrade, as it will not function without it. The list in the Advanced User Guide 
fails to mention this in its list of parts for the disc upgrade, because it is 
supplied in the model A to B conversion. 
see BEEBUG Vol.1 No.1@). 


(IC76 is also needed to read paged ROMS - 
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IP YOU WRITE TO US 


BACK ISSUES (Members only) 


All back issues are kept in print (from 
April 1982). Send 90р per issue PLUS an 


PROGRAMS AND ARTICLES 


(АП programs and articles used are paid 
| for at around £25 per page, but please 
| give us warning of anything substantial 


| that you intend to write. Іп the case 
| ОҒ material longer than a page, we 
| would prefer this to be submitted on 
| cassette or disc in machine readable 
| form using  "Wordwise",  "Minitext 
| Editor" or other means. If you use 
| cassette, please include a backup сору 
| at 300 baud. 


A5 SAE to the subscriptions address. 
This offer is for members only, so it 
is ESSENTIAL to quote your membership 
number with your order. Please note 
that the BEEBUG Reference Card and 
BEEBUG supplements are not supplied 
with back issues. 


SUBSCRIPTIONS 
Send all applications for membership, 
subscription renewals, and subscription 
queries to the subscriptions address. 
MEMBERSHIP COSTS: 
U.K. 
£5.40 for 6 months (5 issues) 
£9.90 for 1 year (10 issues) 
Eire and Europe 
Membership £16 for ! year. 
Middle East £19 
Americas and Africa £21 
|. Elsewhere £23 
Payments in Sterling preferred. 


HINTS 


| There are prizes of #5 and £19 for the 
| best hints each month. 


| Please send all editorial material to 
| the editorial address below. If you 
(require a reply it is essential to 
| quote your membership number апа 
| enclose an SAE. 


BEEBUG 
PO Box 50 
St Albans 

Herts 


Subscriptions & Subscriptions and 
Software Address Software Help Line 
BEEBUG St.Albans 

PO BOX 109 (0727) 60263 

High Wycombe Manned Mon-Fri 
Bucks lpm-4pm 


Editorial Address 


All rights reserved. No part of this publication may be reproduced without prior written permission of 
the Publisher. The Publisher cannot accept any responsibility, whatsoever, for errors in articles, 
programs, or advertisements published. The opinions expressed on the pages of this journal are those of 
the authors and do not necessarily represent those of the Publisher, BEEBUG Publications Limited. 

BEEBUG Publications Ltd (c) April 1984. 
BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 
Editor: Mike Williams. 
Technical Editor: Philip Le Grand. Production Editor: Phyllida Vanstone. 
Technical Assistants: Alan Webster and David Fell. 
Managing Editor: Lee Calcraft. 
Thanks are due to Sheridan Williams, Adrian Calcraft, John Yale, Robert Barnes, Michael Beasley, Hugh 
Brown-Smith and Tim Powys-Lybbe for assistance with this issue. 


1.2 OPERATING SYSTEM Б 
A special arrangement has been agreed between Acorn апа BEEBUG whereby BEEBUG members may obtain the 1.2 operating system 
in ROM at the price of £5.85 including VAT and post and packing. 
The ROM will be supplied with fitting instructions to enable members to install it in their machine. 
If the computer does not subsequently operate correctly, members may take their machine to an Acorn dealer for the upgrade to be 


tested, which will be done at a charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have been defective. If the 
computer has been damaged during the installation process, the dealer will make a repair charge. 


552 NEW ROMS FOR OLD 
qe EXCHANGE YOUR 1.0 FOR THE 1.2 


We can now exchange your old 1.0 operating system for the new 1.2, free of charge. To take advantage of this offer, please send your 1.0 
(supplied on eprom with a carrier board), in good condition to the address below. 


£5 FOR YOUR OLD 1.0 


. If you have the 1.0 operating system and have already bought a 1.2, we will exchange the 1.0 (supplied on eprom with a carrier board) for 
a £5 voucher. This voucher may be used against any purchase from BEEBUGSOFT. 


ADDRESS FOR 1.2 OS:- 
ROM Offer, BEEBUG, PO Box 109, High Wycombe, Bucks, HP11 2TD. 


* Simply plugs into the BBC Micro 
* No soldering necessary 


* Increases the sideways ROM capacity 
to 16 


* Fully buffered - allows all sockets 
to be used 


* Complete with full and detailed 
instruction booklet. 


* Accepts 16K RAM in special sockets 

* Battery back up facility for RAM 
(parts available directly from 
ATPL at extra cost) 

* As used at BEEBUG 


* Reviewed in BEEBUG vol.2 number 6 
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HOW TO ORDER 


Please send your order with a cheque / postal order made payable to BEEBUG, and 
enclose your membership number. We are unable to supply the board to overseas 


members. 


The address for SIDEWAYS is: 
BEEBUGSOFT, PO Box 109, High Wycombe, 


Bucks. НР11 2TD. 


To save wear and tear оп fingers and 
brain, we offer, each month, a 
cassette of the programs featured in 
the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
Produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


All previous magazine cassettes (from 
Vol.1 No.10) are available. 


This month's cassette  (Vol.2 No.1@) 
includes: Elevasion game, Machine 
Code Graphics example programs, Tape 
Indexing programs, Dartboard game, 
Program to produce 3D Histograms, 
Home Accounting Annual Budgets, 
Testing Out Your Micro (Part 2) - The 
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We аге able offer members 
subscription to our magazine 
cassettes. Subscriptions will be for 
a period of one year and are for ten 
consecutive issues of the cassette, 
If required, subsriptions may be 
backdated as far as Vol.] Мо.10, 
Which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
subscription please write to the 
address below, quoting your 
membership number and the issue from 
which | you would like your 


subscription to start. 
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BEEBUG MAGAZINE BINDER OFFER 
nn ER, VEER 


A hard-backed binder for  BEEBUG 
magazine is available. These binders 
are dark blue in colour with 'BEEBUG' 
in gold lettering on the spine. They 
allow you to store the whole of one 
volume of the magazine as a Single 
reference book. Individual issues may 
be easily added or removed, thus 
providing ideal storage for the 
current volume as well. 


sese 


Printed in England by Staples Printers St Albans Limited at The Priory Press. 
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Video ULA, Moving Text Display, April 
Fool Routine, plus Four Tone Mode 7 
screen dumps for Epson FX80 and МХ80 
printers. 

All magazine cassettes cost £3.09 
each. For ordering information see 
BEEBUGSOFT advertisement at the back 
of this month's magazine supplement. 
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CASSETTE SUBSCRIPTION ADDRESS: 
————— MEIN BDURBOO: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 

PO Box 199, High Wycombe, Bucks, ' 


CASSETTE SUBSCRIPTION PRICE: 

UK £33 inc VAT and p&p 

OVERSEAS (inc Eire) £39 inc p&p 
(no VAT payable). 


BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 
Europe £4.90 inc p&p 

(no VAT payable). 
Elsewhere £5.90 inc p&p 

(no VAT payable). 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, PO Box 
109, High Wycombe, Bucks, - 

Please allow 28 days for delivery on 
U.K. orders. 
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